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SECTION  I 


GENERAL  DESCRIPTION 


The  Inverted  File  Facility  (INVFF)  is  an  extension  of  the  Indexed 
Sequential  Processor  (ISP)  which  allows  a user  to  build,  retrieve  from,  and 
update  inverted  data  bases.  An  inverted  data  base  consists  of  three  sepa- 
rate files,  a data  file,  an  ISP  index  file,  and  an  inverted  index  file.  The 
data  file  and  the  ISP  index  file  are  identical  in  format  to  the  data  file 
and  index  file  in  an  indexed  sequential  data  base.  The  inverted  index  file 
provides  for  the  inverted  data  base  some  file  processing  capabilities  which 
do  not  inherently  exist  for  an  indexed  sequential  data  base.  These  capabilities 
are : 

1.  The  ability  to  distinguish  each  data  record  as  being  of  a specific 
type.  The  record  type  is  determined  by  the  inverted  file  processor 
by  examining  the  content  of  a data  field  within  the  record.  This 
data  field  is  known  as  the  record  type  field  and  is  defined  in  the 
inverted  index  file.  The  definition  of  the  record  type  field  may 

be  omitted,  in  which  case  all  of  the  records  on  the  file  are  defined 
as  being  of  the  same  type. 

2.  The  ability  to  process  data  records  randomly  through  the  specifica- 
tion of  values  contained  in  one  or  more  data  fields  within  a record. 
These  data  fields  are  known  as  inverted  key  fields  and  are  defined  in 
the  inverted  index  file.  One  or  more  inverted  key  fields  may  be 
defined  for  each  record  type. 

An  inverted  key  is  the  logical  association  of  one  or  more  inverted 
key  fields;  inverted  key  fields  from  different  record  types  may  be 
defined  as  participating  in  the  same  key,  allowing  those  fields  to  be 
processed  equivalently  with  regard  to  retrieval  via  specification  of 
a given  value.  It  is  possible  for  a data  field  to  participate  in 
more  than  one  key. 

Any  number  of  keys  may  be  defined  for  a particular  record  type,  and 
any  number  of  record  types  can  contain  any  one  particular  key. 

The  inverted  index  file  contains  the  definition  for  each  inverted 
key  and  one  or  more  index  pages  for  each  key.  The  index  pages  for 
each  key  contain  all  unique  values  of  that  key  which  occur  in  the 
data  file  and  the  data  file  address  of  every  record  which  contains 
each  key  value. 

In  addition  to  the  inverted  keys,  an  inverted  data  base  has  a primary  or 
ISP  key.  The  ISP  key  is  defined  and  maintained  on  the  ISP  index  file  and 
serves  the  same  function  that  is  serves  for  a simple  indexed  sequential  data 
base. 

USER  INTERFACE 

The  user  interface  to  the  Inverted  File  Facility  is  composed  of  a set 
of  descriptor  cards  (which  are  placed  by  the  user  on  a descriptor  card  file 
for  access  by  the  INVFF),  a set  of  subroutines,  and  the  utility  program  XUTIL. 
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Descriptor  Cards 


The  descriptor  cards  contain  the  parameters  that  define  the  character- 
istics of  the  inverted  file.  The  types  and  functions  of  the  descriptor  cards 
are  listed  below.  Specific  details  concerning  their  formats  and  usage  are 
contained  in  Sections  II  and  III, 


Card  Type 
INDEX 

DATA 

INDX2 

RECORD 

WORKFL 

SORTFL 

KEY 

ETC 

Subroutines 


Function 


Specifies  GCOS  file  code  and  page  size  of  the  ISP 
index  file. 

Specifies  characteristics  of  the  data  file. 

Specifies  GCOS  file  code,  page  size,  and  percentage 
fill  for  the  inverted  index  file. 

Specifies  the  characteristics  of  the  largest  record 
in  an  inverted  data  file. 

Specifies  the  file  code  of  the  temporary  file  on  which 
record  addresses  from  the  inverted  index  file  are  to 
be  written  during  a retrieval  job.  The  file  must  be 
a random  file. 

Specifies  the  file  code  of  the  temporary  file  on  which 
entries  for  the  inverted  index  file  are  to  be  written 
during  a build  job.  The  file  must  be  a magnetic  tape 
or  linked  disk  file. 

Specifies  the  characteristics  of  a data  field  to  be 
used  as  an  inverted  key  field. 

Continuation  of  a descriptor  card  of  any  other  type. 


The  inverted  file  processing  subroutines  are  invoked  via  the  standard 
CALL  interface.  Refer  to  the  individual  programming  reference  manuals  for 
specific  CALL  interfaces.  The  names  and  functions  of  the  subroutines  are 
listed  below.  Specific  details  concerning  their  usage  are  contained  in 
Section  II  and  IV. 


Subroutine  Function 

INVBLD  Allows  inverted  file  build  routines  to  be  loaded. 


KINIT  Initializes  an  inverted  file.  Designed  primarily  for 

use  by  World  Wide  Data  Management  System  (WWDMS) . 

KOPEN  Opens  a pre-initialized  inverted  file  to  prepare  for 

the  storage  of  records  into  the  file  for  the  first 
time.  Designed  primarily  for  use  by  WWDMS. 
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Subroutine 


Function 


NOPEN 

FILINT 

I OPEN 

LOPEN 

GETSEQ 

GETRAN 

GETIND 

GETREC 

XREWND 

INVUPD 

ADDREC 

CHGREC 

DELREC 

XSTAT 

XFLUSH 

ICLQSE 


Opens  a new  inverted  file  to  prepare  for  the  stor- 
age of  records  into  the  file  for  the  first  time. 

Stores  a record  into  an  inverted  file  that  has  been 
opened  for  building  by  NOPEN. 

Opens  an  existing  inverted  file  to  prepare  for  the 
retrieval,  addition,  deletion,  and  modification  of 
records  in  the  file. 

Accomplishes  the  same  function  as  IOPEN.  Designed 
primarily  for  use  by  WWDMS, 

Retrieves  the  next  available  record  in  sequence  from 
the  data  file,  without  reference  to  the  ISP  or  in- 
verted index  file. 

Retrieves  the  record  having  the  ISP  key  value  equal 
to  that  specified  by  the  user. 

Retrieves  the  data  file  addresses  of  all  records  con- 
taining inverted  key  values  which  meet  criteria 
specified  by  the  user. 

Retrieves  a record  having  a data  file  address  re- 
trieved by  GETIND, 

Rewinds  the  data  file  to  either  the  first  record  in 
the  file  or  the  record  having  an  ISP  key  value  that 
is  greater  than  or  equal  to  a specified  value. 

Allows  inverted  file  update  routines  to  be  loaded. 

Adds  a new  record  to  an  existing  inverted  file. 

Replaces  an  existing  record  in  an  inverted  file  with 
a record  having  the  same  size  and  ISP  key  value. 

Deletes,  from  an  existing  inverted  file,  the  record 
having  the  ISP  key  value  specified  by  the  user. 

Stores  the  current  values  of  seven  different  ISP  file 
utilization  parameters  in  an  area  specified  by  the 
user. 

Writes  all  pages  that  have  been  modified  since  they 
were  last  read  from  random  access  storage  back  to 
random  access  storage. 

Terminates  processing  of  an  inverted  file  that  was 
opened  by  NOPEN,  IOPEN,  KOPEN,  or  LOPEN, 
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Function 


Subroutine 


WRAPUP 

XCKPTF 


Terminates  processing  of  all  inverted  and  indexed 
sequential  files  that  are  currently  open. 

Checkpoints  all  open  files  when  FMS  ABORT /ROLLBACK/ 
is  specified. 


XCKPTP 


Checkpoints  all  open  files  and  the  program  when  FMS 
ABORT/ ROLLBACK/  is  specified. 


XROLBF  Cancels  all  changes  made  to  files  since  the  last 

checkpoint  was  taken  when  the  files  are  protected 
using  the  FMS  ABORT /ROLLBACK/  option. 

XROLBP  Restores  file  contents  and  the  program  to  their  state 

at  last  checkpoint  when  files  are  protected  with  the 
FMS  ABORT/ROLLBACK/  option. 

XUTIL  Utility 


The  XUTIL  utility  is  executed  as  a GCOS  PROGRAM  activity,  with  all  neces- 
sary information  being  supplied  by  the  user  on  control  cards  and  descriptor 
cards.  XUTIL  provides  the  following  inverted  file  processing  capabilities: 


1.  Loading  a new  inverted  file  from  an  existing  sequential  file. 

2.  Unloading  an  inverted  file  to  remove  any  deleted  records. 

3.  Reloading  an  inverted  file  to  redistribute  the  records  or  to  add, 
delete,  or  modify  definitions  of  inverted  keys. 

XUTIL  is  described  in  detail  in  Section  II  under  the  subsection  on 
"UNLOADING  AND  RELOADING  AN  INVERTED  FILE". 


i 
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SECTION  II 


FILE  PROCESSING 


This  section  contains,  in  general,  the  information  needed  to  use  the 
Inverted  File  Facility  in  a batch  processing  environment..  There  are  three 
basic  modes  of  inverted  file  processing;  building  a new  file,  retrieving 
records  from  an  existing  file,  and  updating  an  existing  file.  Retrieval  and 
updating  can  be  done  in  the  same  program  without  difficulty,  but  each  mode 
is  discussed  separately  in  this  section. 

BUILDING  A NEW  FILE 

An  inverted  file  is  built  initially  by  one  call  to  INVBLD,  one  call  to 
NOPEN,  one  call  to  FILINT  for  each  record  to  be  stored  in  the  file,  and 
one  call  to  ICLOSE.  The  building  of  a new  file  may  be  broken  down  into  two 
phases;  the  file  initialization  phase  and  the  file  loading  phase. 

The  file  initialization  phase  begins  when  the  call  to  NOPEN  is  executed, 
and  ends  when  control  is  returned  by  NOPEN  to  the  user  program.  During  this 
phase,  the  following  processing  takes  place  on  the  inverted  indexed  file. 

1,  The  first  control  page  is  initialized.  The  control  pages  are  those 
pages  of  the  inverted  index  file  which  contain  file  management  and 
utilization  statistics  and  provide  a means  for  accessing  the  key 
definition  pages  and  the  coarse  and  file  index  pages  for  each  key. 

2.  The  inverted  file  processor  reads  the  key  definitions  from  the  de- 
scriptor card  file,  builds  a key  definition  table  in  core,  and  then 
writes  the  entries  from  that  table  to  one  or  more  key  definition  pages 
on  the  file.  The  inverted  file  processor  also  writes  an  entry  to  the 
control  pages  for  each  key  defined. 

Some  initialization  of  the  data  file  and  the  ISP  index  file  also  takes 
place  during  the  initialization  phase. 

The  file  loading  phase  begins  when  the  first  call  to  FILINT  is  executed 
and  ends  when  control  is  returned  from  ICLOSE  to  the  user  program.  Each  time 
FILINT  is  called,  the  data  record  in  core  is  stored  on  the  data  file.  The 
inverted  processor  then  determines  the  record  type  of  the  record.  For  each 
inverted  key  defined  for  that  record  type,  the  inverted  file  processor  writes 
to  a temporary  sort  file  a sort  entry  consisting  of  the  key  number,  the  value 
contained  in  the  key  field  in  the  data  record,  and  the  data  file  address  of 
the  record. 

When  the  file  is  closed  by  ICLOSE,  the  sort  entries  are  sorted  on  key 
number  and  key  value.  The  inverted  file  processor  then,  for  each  key  defined 
for  the  file,  obtains  from  the  inverted  index  file  a fine  index  page  and 
writes  to  that  page  each  key  value  present  on  the  file  and  the  data  file  address 
of  each  record  which  contains  that  value. 
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If  more  than  one  fine  index  page  is  required  to  contain  all  of  the  key 
values  and  data  file  addresses  relevant  to  a given  key,  the  key  values  and 
data  file  addresses  are  overflowed  onto  one  or  more  subsequent  fine  index 
pages,  and  an  entry  to  each  fine  index  page  is  written  to  a coarse  index 
page.  When  a coarse  index  page  overflows,  entries  for  that  coarse  index 
page  and  the  pages  onto  which  it  has  overflowed  are  written  onto  a higher 
level  coarse  index  page. 


Descriptor  Cards  Required 

The  chart  below  shows  the  types  of  descriptor  cards  which  must  be  present 
on  the  descriptor  card  file  for  a build  program,  the  meaningful  parameters 
which  may  appear  on  these  descriptor  cards,  and  an  indication  as  to  whether 
these  parameters  are  optional  or  required. 


Card  Type 
INDEX 

DATA 


RECORD 


INDX2 


SORTFL 


Parameters 


FC  = isp-index-f ile-code 

PAGESZ  = isp-index-page-size  (optional,  default  = 320) 

FC  = data-f ile-code-n,  n = 1,2,..., 8 

PAGESZ  = data-page-size  (optional,  default  = 320) 

PAGEFIL  = pet-fill  (optional,  default  = 100) 

C0LC0M  (optional) 

RECSZ  = record-size 
KEYSZ  = key-size 

KEYOFF  = key-offset  (optional,  default  = 0) 

RTYPSZ  = record-type-size  (optional) 

RTYPOFF  = record-type-offset  (optional,  default  = 0) 

FC  = invf f-index-f ile-code 

PAGESZ  = invf f-index-page-size  (optional,  default  = 320) 
PAGEFIL  = invf f-pct-f ill  (optional,  default  = 90) 

FC  = sort-file-code 


KEY  RTYPE  = record-type  (required  if  an  only  if  RTYPSZ  is 

present  on  RECORD  card) 

KEYNO  = key-number 
KEYSZ  = key-size 

KEYOFF  = key-offset  (optional,  default  = 0) 
xtTITT  / null-character  \ 

™LL  = l BLANK  / (optional) 

UNIQUE  (optional) 

SIGNED  (optional) 


NOTES 

1.  There  must  be  one  KEY  card  for  each  inverted  key  for  each  record 
type  for  which  that  key  is  to  be  defined. 

2.  If  no  record  type  field  is  to  be  defined  for  the  file,  the  RTYPSZ  and 
RTYPOFF  parameters  should  be  omitted  from  the  RECORD  card,  and  the 
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RTYPE  parameter  should  be  omitted  from  each  KEY  card.  This  will 
cause  all  inverted  keys  defined  for  each  record  on  the  file. 


3.  If  a record  type  field  is  defined,  there  must  be  at  least  one  in- 
vert- . key  defined  for  each  type  of  record  that  is  to  be  stored  on 
the  file. 

For  a more  detailed  description  of  descriptor  cards  and  descriptor  card 
L parameters,  refer  to  Section  III, 

File  Build  Subroutines 


Below  is  a summary  of  the  subroutine  calls  needed  in  an  inverted  file 
build  procedure. 

1.  One  call  or  SYMREF  to  INVBLD  - The  subroutine  itself  accomplishes 
nothing,  but  the  call  or  SYMREF  must  be  present  anywhere  in  the  user 
program  in  order  to  cause  the  General  Loader  to  load  the  inverted 
file  build  modules.  No  calling  arguments  are  necessary. 

2.  One  call  to  NOPEN  to  initialize  the  file  and  prepare  for  the  storage 
of  records  into  the  file  for  the  first  time  by  FILINT.  The  syntax 
of  the  call  to  NOPEN  is  as  follows: 

CALL  NOPEN  USING  record-area,  data-f ile-code-1 , 
desc-f ile-code  [, error-code] 

3.  One  call  to  FILINT  for  each  record  to  be  stored  in  the  file.  The 
syntax  of  the  call  to  FILINT  is  as  follows: 

CALL  FILINT  USING  data-f ile-code-1  [, alt-record-size 
[, error-code , seq-check]] 

4.  One  call  to  ICLOSE  to  terminate  processing  of  the  file.  The  syntax 
of  the  call  to  ICLOSE  is  as  follows: 

CALL  ICLOSE  USING  data-f ile-code-1 

NOTES  ON  CALLS 

1.  ISP  assumes  that  the  records  being  stored  by  FILINT  are  in  the 
proper  key  value  order  according  to  the  collating  sequence  selected 
by  the  user.  Optionally,  the  user  may  request  that  the  key  value 
sequence  be  checked  for  errors, 

2.  If  the  user  attempts  to  store  via  FILINT  a record  containing  an 
inverted  key  value  that  is  a duplicate  of  a value  already  present 

on  the  file,  and  if  that  inverted  key  was  defined  as  UNIQUE,  then  the 
record  will  be  stored  in  the  data  file  but  no  entry  for  the  duplicate 
occurrence  will  be  stored  in  the  inverted  index  file.  A warning  mes- 
sage will  be  printed  on  the  utilization  report. 


3.  Each  record  to  be  stored  by  FILINT  must  be  large  enough  to 

contain  all  of  the  inverted  keys  defined  for  the  record  in  their 
data  record  orientation. 

For  a more  detailed  description  of  the  usage  of  these  subroutines,  refer 
to  Section  IV. 

Temporary  Files  Needed 

When  building  a new  inverted  file,  the  user  is  required  to  provide  his 
program  with  two  temporary  files:  a sort  file  and  a sort  collation  file. 

SORT  FILE 

The  sort  file  is  the  file  on  which  the  inverted  processor  stores  entries 
containing  key  values  and  pointers  while  the  data  file  is  being  loaded  via 
FILINT.  The  sort  file  must  be  either  a magnetic  tape  or  linked  disk  file. 

If  a linked  disk  file  is  to  be  used,  it  is  advisable  to  allocate  as  many 
links  for  the  sort  file  as  is  occupied  by  the  inverted  index  file. 

SORT  COLLATION  FILE 

When  ICLOSE  is  called  in  a build  routine,  the  Sort/Merge  utility  program 
is  called  in  to  sort  the  entries  which  have  been  placed  on  the  sort  file. 

The  Sort/Merge  requires  that  one  or  more  collation  working  files  be  allocated 
by  the  user. 

The  collation  file(s)  may  be  assigned  to  either  magnetic  tape  or  random 
disk.  If  the  sort  file  is  a linked  disk  file,  it  is  advised  that  the  sort 
collation  file  be  a random  disk  file  of  the  same  size,  assigned  a file  code 
of  Si.  If  the  sort  file  is  a magnetic  tape  file,  then  three  tapes,  assigned 
file  codes  of  SI,  S2,  and  S3,  should  be  allocated  as  sort  collation  files. 

Restricted  File  Codes 


In  a program,  such  as  an  inverted  file  build  program,  in  which  the  Sort/ 
Merge  Program  is  executed,  all  file  codes  beginning  with  the  letter  S are 
restricted  to  files  directly  involved  in  the  Sort  or  Merge  process.  Thus, 
in  an  inverted  file  build  program  the  use  of  any  file  code  beginning  with 
the  letter  S should  be  avoided,  except  with  regard  to  the  sort  collation  files. 

Memory  Assignment  Manipulation 

To  reserve  memory  space  for  the  Sort/Merge  program  to  use  s ' a work  area, 
one  of  the  following  sets  of  control  cards  must  be  included  in  the  job  setup: 


1. 


$ 

$ 


LOWLOAD  (optional) 

USE  .SMA/l/, .SMB/ssize/, , SMC/1/ 


or 

2.  $ LOWLOAD 

$ USE  .XBUFl/xsize/ , .XBUF2/2/ 
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v 





or 


3.  $ USE  .XBUF/2/, .XBUFl/xsize/ 


where : 

ssize  = 8000  memory  words  or  more 
xsize  = 4000  memory  words  or  more 

If  option  (1)  is  used,  the  greater  the  value  of  ssize  the  more  efficiently 
the  Sort/Merge  program  will  operate.  However,  a larger  value  for  ssize  also 
means  that  the  inverted  file  processor  will  have  less  memory  available  for  use 
as  buffer  space;  therefore,  the  amount  of  I/O  performed  by  the  inverted  pro- 
cessor will  increase.  If  option  (2)  is  used,  the  reverse  is  true  with  respect 
to  the  value  of  xsize. 


File  Size  Computations 

The  formulas  to  calculate  the  size  of  the  data  file  and  ISP  index  file 
are  described  in  the  current  ISP  manual. 

The  required  size  of  the  inverted  index  file  is  difficult  to  calculate; 
this  quantity  is  dependent  upon  such  variables  as  the  number  of  record  types 
defined  for  the  file,  the  number  of  inverted  keys  defined  for  each  record 
type,  the  size  of  the  inverted  key  fields,  and  the  composition  of  the  collec- 
tion of  records  on  the  data  file  with  respect  to  record  type.  However,  the 
formulas  given  below  can  be  used  to  produce  a fairly  reliable  upper  bound. 

The  independent  variables  used  in  these  formulas  are: 


NKU  = Total  number  of  key  values  in  the  file  for  unique  keys 

NKN  = Total  number  of  key  values  in  the  file  for  non-unique  keys 

UPS  = Inverted  file  index  page  size  (in  words) 

PF  = Percent  fill 

KSU  = Key  size  in  words  (size  in  characters  divided  by  6 and  rounded  up  to 
nearest  whole  number)  of  largest  unique  key 

KSN  = Key  size  in  words  of  largest  non-unique  key 


Additionally,  let  function  INT  n = largest  integer  less  than  or  equal  to  n. 

1.  The  number  of  occurrences  of  a unique  key  that  will  fit  on  an  index 
page,  KPU,  is  given  by: 


KPU  = INT 


INT 


f IIPS*PF 

L 10Q 


]-< 


KSU+1 


The  number  of  occurrences  of  a non-unique  key  that  will  fit  on  an 
index  page,  KPN,  is  given  by: 
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KPN  = INT 


INT 

IIPS*PF  ] 

100  J A 

KSN+2 


The  number  of  inverted  pages  required  to  hold  the  unique  inverted 
keys,  NDPU,  is  given  by; 


NDPU  = INT 


' NKU  ' 
KPU 


The  number  of  inverted  pages  required  to  hold  the  non-unique  inverted 
keys,  NDPN,  is  given  by: 


NDPN  = INT 


tNKN  "I 

KPN  j 


5.  The  total  number  of  inverted  index  pages  required,  NDP,  is  given  by: 

NDP  = NDPU  + NDPN 

6.  The  number  of  320-word  blocks  required  for  the  inverted  index  file  is 
given  by: 


NIB  = INT 


P IIPS*NDP  "I 
L 64  J 


+4 


7. 


The  number  of  3840-word  links  required  for  the  inverted  index  file, 
NIL,  is  given  by: 


NIL  = INT  j 


f"  NIB+11 


Efficiency  Techniques 


1.  Maximum  page  buffer  utilization  occurs  when  the  inverted  index  page 
size,  ISP  index  page  size,  and  data  page  size  are  equal. 

2.  For  a given  inverted  index  file,  increasing  the  page  size  of  the 
file  will  decrease  the  overall  size,  as  fewer  coarse  index  pages 
will  be  required. 

3.  If  the  primary  retrieval  path  to  the  data  base  is  via  a unique  key, 
it  is  better  to  use  smaller  inverted  index  pages,  since  inverted  in- 
dex pages  must  be  searched  sequentially  for  a particular  key  value 
and  more  processing  is  required  to  search  through  a large  page  than 
a small  page.  If,  however,  the  primary  retrieval  path  is  via  a 
non-unique  key  for  which  many  duplicate  values  are  anticipated,  the 
data  file  addresses  corresponding  to  a given  key  value  may  well 
extend  across  several  pages.  In  a case  such  as  this,  it  is  better 
to  use  larger  page  sizes  in  order  to  decrease  the  amount  of  inter- 
page processing. 
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4.  If  it  is  anticipated  that  a given  key  field  may,  in  a majority  of 
the  records,  contain  no  useful  information,  the  use  of  the  null 
processing  option  will  result  in  a saving  of  both  file  space  and 
processing  time. 

5.  When  inverted  index  entries  and  data  file  addresses  are  added  to  the 
inverted  index  file  during  an  update  procedure,  they  must  be  physically 
inserted.  If  there  is  no  room  on  the  page  on  which  the  entry  or  data 
file  address  is  to  be  inserted,  then  that  page  must  be  split  into  two 
pages.  Therefore,  it  is  advantageous  to  reserve  space  for  future 
expansion.  The  inverted  file  processor  will,  by  default,  reserve 

ten  percent  of  the  words  on  each  page  for  this  purpose.  If  the  data 
base  is  to  be  used  in  a transaction  processing  environment,  it  may 
be  beneficial  to  reserve  more,  via  the  PAGEFIL  option  on  the  INDX2 
card. 

Other  efficiency  techniques  may  be  found  in  the  current  ISP  manual. 

RETRIEVING  RECORDS  FROM  AN  EXISTING  FILE 


There  are  three  methods  of  retrieving  records  from  an  inverted  file: 

1.  Sequentially 

2.  By  specification  of  an  ISP  key  value 

3.  By  specification  of  a value,  a set  of  values,  or  a range  of  values 
for  each  of  one  or  more  inverted  keys. 

Sequential  retrieval  and  retrieval  by  specification  of  ISP  key  value  do 
not  involve  the  use  of  the  inverted  index  file  and  are  performed  in  the  same 
manner  with  respect  to  inverted  and  indexed  sequential  files  alike.  These 
methods  of  retrieval  and  the  procedures  for  using  them  are  discussed  in  de- 
tail in  the  current  ISP  manual. 

Records  are  retrieved  by  specification  of  inverted  key  values  by  one  or 
more  calls  to  GETIND,  to  retrieve  the  data  file  addresses  of  the  records  satis- 
fying the  user-specified  criteria;  and  one  call  to  GETREC  for  each  data  file 
address  retrieved,  to  retrieve  the  record  having  that  address  in  the  data  file. 

The  work  file  is  a temporary  file  on  which  data  file  addresses  are  placed 
by  GETIND  and  from  which  they  are  retrieved  from  GETREC.  Prior  to  each  call 
to  GETIND,  the  work  file  may  or  may  not  contain  data  file  addresses  retrieved 
by  one  or  more  previous  calls  to  GETIND.  The  user  passes  an  option  code  to 
GETIND  to  specify  what  is  to  be  done  with  this  existing  list  of  addresses  when 
the  new  list  is  retrieved.  If  option  code  is  set  to  one,  the  existing  list 
of  addresses  is  discarded.  If  option  code  is  set  to  two  or  three,  the 
existing  list  of  addresses  is  saved  for  logical  manipulation  with  the  new 
list. 


GETIND  obtains  the  criteria  for  building  a new  list  of  record  addresses 
by  reading  a list  of  conditionals  passed  by  the  user.  A conditional  is  a 
true-or-false  statement  about  the  contents  of  an  inverted  key  field  of  a 


+-  — * 
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record.  Each  conditional  is  represented  in  the  program  logic  as  a three- 
element  vector  consisting  of  a key  number,  a relational  code  (a  number  cor- 
responding to  "greater  than",  "greater  than  or  equal  to",  "equal  to",  "less 
than  or  equal  to",  or  "less  than"),  and  a specific  key  value  to  which  the 
key  value  in  each  record  is  to  be  compared.  Each  conditional  is  used  as  in- 
put to  an  index  searching  process,  and  the  output  from  this  process  is  a list 
of  data  file  addresses  of  records  satisfying  that  conditional.  When  all 
conditionals  have  been  processed,  the  resultant  lists  are  consolidated  into  one 
list  consisting  of  the  data  file  addresses  of  the  records  which  satisfy  all 
of  the  specified  criteria. 

If  a value  of  two  or  three  was  specified  for  the  option  code,  the  list 
of  record  addresses  retrieved  by  the  current  call  to  GETIND,  known  as  the 
active  list,  is  manipulated  with  the  list  of  addresses  which  was  present  on 
the  work  file  prior  to  the  current  call,  leaving  a single  list  on  the  work  file 
as  control  is  returned  to  the  user  program.  If  option  code  has  a value  of  two, 
then  the  resultant  list  will  be  a logical  "or"  of  the  active  list  and  the  pre- 
vious list;  that  is,  a list  of  all  addresses  which  are  present  in  either  or 
both  lists.  If  option  code  has  a value  of  three,  the  resultant  list  will  be 
a logical  "and"  of  the  active  list  and  the  previous  list;  that  is,  a list  of 
all  addresses  which  are  present  in  both  lists.  Thus,  the  user  can  use  the 
option  code  to  retrieve  a set  of  data  file  addresses  of  records  which  satisfy 
complex  "and"  and  "or"  conditions. 


After  one  or  more  calls  to  GETIND  have  been  executed  to  retrieve  the  data 
file  addresses  of  all  records  satisfying  specified  criteria,  GETREC  can  be 
called  to  retrieve  each  record  directly  via  its  data  file  address. 


Each  call  to  GETREC  causes  the  next  data  file  address  in  sequence  to 
be  retrieved  from  the  work  file;  following  this,  the  record  itself  is  re- 
trieved from  the  data  file.  There  must  be  one  call  to  GETREC  for  each  record 
to  be  retrieved. 

For  detailed  descriptions  of  the  calling  arguments  to  GETIND  and  GETREC, 
refer  to  the  descriptions  of  those  subroutines  in  Section  IV. 

Descriptor  Cards  Required 


The  chart  below  shows  the  types  of  descriptor  cards  and  parameters  which 
must  be  present  on  the  descriptor  card  file  in  a retrieval  program.  Only  those 
parameters  listed  in  the  chart  are  meaningful  for  a retrieval  job. 


Card  Type 

INDEX 

INDX2 

DATA 

WORKFL 


Parameters 

FC  = isp-index-file-code 
FC  = invff-index-f ile-code 
FC  = data-f ile-code-1 
FC  = work-file-code 


For  a more  detailed  description  of  these  descriptor  cards  and  descriptor 
card  parameters,  refer  to  Section  III, 
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File  Retrieval  Subroutines 


Below  is  a summary  of  the  subroutine  calls  needed  in  a program  to 
retrieve  records  from  an  inverted  file: 

1.  One  call  to  IOPEN  to  open  the  file  and  prepare  for  the  retrieval 
of  records.  The  syntax  of  the  call  to  IOPEN  is  as  follows: 

CALL  IOPEN  USING  record-area,  data-f ile-code-1 , 
desc-f ile-code  [.error-code] 

2.  If  records  are  to  be  retrieved  sequentially: 

a.  One  call  to  GETSEQ  for  each  record  to  be  retrieved.  The 
syntax  of  the  call  to  GETSEQ  is  as  follows: 

CALL  GETSEQ  USING  data-f ile-code-1 , error-code 
[ , alt-record-area  [, alt-record-size] ] 

b.  Optionally,  one  call  to  XREWND  whenever  it  is  desired  to 
position  the  current  record  pointer  to  a record  having  a 
specific  ISP  key  value.  The  syntax  of  the  call  to  XREWND 
is  as  follows: 

CALL  XREWND  USING  data-f ile-code-1 
[, error-code,  function-code] 

If  records  are  to  be  retrieved  by  specification  of  ISP  key  value,  one 
call  to  GETRAN  for  each  record  to  be  retrieved.  The  syntax  of  the 
call  to  GETRAN  is  as  follows: 

CALL  GETRAN  USING  data-f ile-code-1 , error-code 
[ , alt-record-area  ] , alt-record-size] ] 

If  records  are  to  be  retrieved  by  specification  of  conditions  on 
inverted  key  values: 

a.  One  or  more  calls  to  GETIND  to  retrieve  the  data  file 
addresses  of  the  records  satisfying  the  specified  criteria. 
The  syntax  of  the  call  to  GETIND  is  as  follows: 

CALL  GETIND  USING  data-f ile-code-1 , error-code, 
no-of-recs,  option-code,  key-no-1, 
rel-code-1,  value-1  [, key-no-2, 
rel-code-2,  value-2],., 

or 

CALL  GETIND  USING  data-f ile-code-1 , error-code, 
no-of-recs,  option-code,  criteria-table, 

b.  One  call  to  GETREC  for  each  record  to  be  retrieved.  The 
syntax  of  the  call  to  GETREC  is  as  follows: 


2-9 


CALL  GETREC  USING  data-f ile-code-1 , error-code 
I , alt-record-area  ] , alt-record-size] ] 

3.  One  call  to  ICLOSE  to  terminate  processing  of  the  file.  The  syntax 
of  the  call  to  ICLOSE  is  as  follows: 

CALL  ICLOSE  USING  data-f ile-code-1 

For  a more  detailed  description  of  the  usage  of  these  subroutines,  refer 
to  Section  IV, 

Temporary  Files  Needed 

When  retrieving  records  from  an  inverted  file  via  GETIND  and  GETREC,  the 
is  required  to  provide  one  temporary  file:  the  work  file. 

WORK  FILE 


The  work  file  is  the  temporary  file  to  which  data  file  addresses  are 
written  by  GETIND  and  from  which  they  are  retrieved  by  GETREC. 

The  work  file  must  be  a random  file.  The  formulas  given  below  can  be 
used  to  calculate  the  maximum  number  of  links  required  for  the  work  file.  The 
independent  variables  used  in  these  formulas  are: 


NC  = total  number  of  conditionals  used  in  all  calls  to  GETIND  in  the 
program 

NSRn  = number  of  records  in  the  file  that  satisfy  conditional  n,  where 
n = 1,2, ...,NC 


Additionally,  let  function  INT  x = largest  integer  less  than  or  equal 

to  x. 


1.  Let  NSECn  denote  the  number  of  sectors  (64-word  blocks)  required  to 
hold  the  data  file  addresses  of  all  records  that  satisfy  conditional 
n,  where  n = 1,2,...,NC.  Then 

NSECn  = INT  j^MRn_+_62  J 

2.  If  NWS  denotes  the  number  of  sdctors  required  for  the  work  file, 
then 

NWS  = 1 + NSEC1  + NSEC2  + NSEC3  + ...  + NSEC(NC) 

3.  If  NWL  denotes  the  number  of  3840-word  links  required  for  the  work 
file,  then 

] 


NWL  = INT 


NWS  • 


60 
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Memory  Allocation  and  Page  Buffering 


In  a program  in  which  records  are  retrieved  via  calls  to  GETIND  and 
GETREC,  the  user  has  very  little  control  over  the  order  in  which  pages  are 
accessed;  the  inverted  processor  does  not  sort  the  data  file  addresses  on 
the  work  file  by  page  and  line  number,  and  the  user  cannot  choose  from  the 
work  file  the  data  file  address  from  which  he  would  like  to  retrieve  the 
next  record.  It  is,  therefore,  very  important  that  an  adequate  number  of 
page  buffers  be  provided. 

If  the  utilization  report  from  a retrieval  program  indicates  that  an 
unusually  high  number  of  physical  reads  has  taken  place,  the  user  should 
increase  the  amount  of  memory  available  for  buffer  space  by  increasing  the 
amount  of  core  allocated  for  .XBUF1  on  the  $ USE  card,  and/or  by  increasing  the 
amount  of  core  allocated  for  the  activity  on  the  $ LIMITS  card. 

UPDATING  AN  EXISTING  FILE 


The  term  "updating"  refers  to  the  deletion,  addition,  and  modification 
of  records.  A file  is  updated  by  one  call  to  INVUPD,  one  call  to  IOPEN, 
one  call  to  the  appropriate  routine  (ADDREC,  CHGREC,  or  DELREC)  for  each 
record  to  be  updated,  and  one  call  to  ICLOSE. 

When  a record  is  added,  changed,  or  deleted,  each  index  (set  of  coarse 
and  fine  index  pages)  corresponding  to  a key  that  is  defined  for  a record  of 
that  type,  must  be  updated  accordingly. 

Adding  a Record 

When  an  attempt  is  made  to  add  a record,  via  ADDREC,  the  inverted  processor 
ensures  that: 

1.  No  record  containing  the  same  ISP  key  value  currently  exists  on 
the  file. 

2.  The  value  contained  in  the  record  type  field  is  valid. 

3.  The  record  contains  no  duplicate  values  for  keys  defined  as  UNIQUE. 


If  any  of  the  above  conditions  is  violated,  the  record  is  not  stored. 

When  a record  is  added,  a new  inverted  index  entry  is  added  for  each  key 
that  is  defined  for  the  record.  Each  new  entry  must  be  physically  Inserted; 
if  there  is  no  room  on  the  page  for  the  entry,  then  the  page  must  be  split; 
that  is,  a new  page  is  allocated  and  half  of  the  entries  from  the  old  page  are 
placed  on  the  new  page.  This  shows  the  importance  of  specifying  at  initial- 
ization time  a reasonable  percentage  fill  for  the  inverted  index  pages. 


Deleting  a Record 


When  an  attempt  is  made  to  delete  a record,  via  DELREC,  the  inverted 
processor  ensures  that; 

1.  A record  containing  the  specified  ISP  key  value  does  in  fact 
exist  on  the  file. 

2.  The  value  contained  in  the  record  type  field  is  valid. 

If  either  of  the  above  conditions  is  violated,  no  attempt  is  made  to 
delete  the  record. 

Note  that  the  test  for  record  type  validity  is  not  performed  at  initial- 
ization time.  Thus,  although  a record  containing  an  invalid  record  type  field 
may  exist  as  an  inverted  file,  it  is  not  possible  to  delete  such  a record  in 
an  inverted  file  update  procedure.  The  record,  however,  may  be  deleted  by 
accessing  the  file  as  a simple  ISP  file  (use  ISP  descriptor  cards  rather  than 
INVFF)  and  then  calling  DELREC. 

When  a record  is  deleted,  each  inverted  index  entry  corresponding  to  a key 
that  is  defined  for  that  record  is  physically  deleted. 

Changing  a Record 

When  an  attempt  to  change  an  existing  record,  via  CHGREC,  the  inverted 
processor  ensures  that: 

1.  The  ISP  key  value  of  the  record  to  be  replaced  does  in  fact  exist 
on  the  file. 

2.  The  value  contained  in  the  record  type  field  of  the  record  to  be 
replaced  is  valid. 

3.  The  value  contained  in  the  record  type  field  of  the  record  that  is 
to  replace  the  existing  record  is  valid. 

4.  The  record  that  is  to  replace  the  existing  record  contains  no  dup- 
licate values  for  keys  defined  as  UNIQUE. 

If  any  of  the  above  conditions  is  violated,  no  attempt  is  made  to  replace 
the  record. 

When  an  existing  record  is  to  be  replaced  by  a record  containing  the  same 
ISP  key  value,  the  inverted  file  processor  determines  which,  if  any,  of  the  in- 
verted key  values  in  the  record  are  to  be  changed.  For  those  key  values  which 
are  to  be  changed  the  index  entries  corresponding  to  the  old  values  are  deleted 
and  index  entries  corresponding  to  the  new  values  are  inserted. 
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Buffer  Flushing 

Buffer  flushing  is  a technique  used  to  insure  that  file  integrity  is 
maintained  in  the  event  of  a system  interruption,  It  is  particularly  useful 
in  a transaction  processing  environment.  For  a more  detailed  description  of 
the  buffer  flushing  capability,  refer  to  the  current  ISP  manual. 

Descriptor  Cards  Required 

The  chart  below  shows  the  types  of  descriptor  cards  and  parameters 
which  must  be  present  on  the  descriptor  card  file  in  an  update  program.  Only 
those  parameters  listed  in  the  chart  are  meaningful  for  an  update  job. 


Card  Type 


Parameter 


INDEX 


FC  = isp-index-f ile-code 


INDX2 


FC  = invf f-index-f ile  code 


DATA  FC  = data-f ile-code-1 

For  a more  detailed  description  of  these  descriptor  cards  and  descriptor 
card  parameters,  refer  to  Section  III. 

File  Update  Subroutines 

Below  is  a summary  of  the  subroutine  calls  needed  in  a program  to  update 
an  inverted  file. 

1.  One  call  or  SYMREF  to  INVUPD  - the  subroutine  itself  accomplishes 
nothing,  but  the  call  or  SYMREF  must  be  present  anywhere  in  the  user 
program  in  order  to  cause  the  General  Loader  to  load  the  inverted 
file  update  modules.  No  calling  arguments  are  necessary. 

2.  One  call  to  IOPEN  to  open  the  file  and  prepare  for  the  addition, 
deletion,  and  modification  of  records.  The  syntax  of  the  call  to 

, IOPEN  is  as  follows: 

CALL  IOPEN  USING  record-area,  data-f ile-code-1 , 
desc-f ile-code  [.error-code] 

3.  One  call  to  ADDREC  for  each  record  to  be  added.  The  syntax  of  the 
call  to  ADDREC  is: 

CALL  ADDREC  USING  data-f ile-code-1 , error-code 
[ , alt-record-size] 

4.  One  call  to  CHGREC  for  each  record  to  be  changed.  The  syntax  of 
the  call  to  CHGREC  is; 


CALL  CHGREC  USING  data-f ile-code-1 , error-code 
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5.  One  call  to  DELREC  for  each  record  to  be  deleted.  The  syntax 
of  the  call  to  DELREC  is; 

CALL  DELREC  USING  data-f ile-code-1 , error-code. 

6.  One  call  to  XFLUSH  for  each  time  the  buffers  are  to  be  flushed. 

The  syntax  of  the  call  to  XFLUSH  is; 

CALL  XFLUSH  [USING  function-code], 

7.  One  call  to  ICLOSE  to  terminate  processing  of  the  file.  The  syntax 
of  the  call  to  ICLOSE  is: 

CALL  ICLOSE  USING  data-f ile-code-1. 

For  a more  detailed  description  of  the  usage  of  these  subroutines,  refer 
to  Section  IV. 

Memory  Allocation  and  Page  Buffering 

The  amount  of  memory  available  for  page  buffering  can  be  increased  by 
increasing  the  amount  of  core  allocated  for  .XBUF1  on  the  $ USE  card,  and/or 
by  increasing  the  amount  of  core  allocated  for  the  activity  on  the  $ LIMITS 
card.  For  a more  detailed  description  of  these  techniques,  refer  to  the  cur- 
rent ISP  manual. 

FMS  Protection  and  Recovery 

The  ABORT / ROLLBACK/  option  of  FMS  can  be  used  to  prevent  incomplete  file 
updating  that  can  result  from  job  or  system  failure.  Details  on  the  FMS  file 
protection  feature  may  be  found  in  the  current  ISP  manual. 

Journalization  and  Restoration 

The  ISP  capability  of  journalizing  changes  to  a file  has  not  yet  been 
implemented  for  use  by  the  Inverted  File  Facility. 

UNLOADING  AND  RELOADING  AN  INVERTED  FILE 

The  utility  program  XUTIL  may  be  used  to  unload  and  reload  an  inverted 
file.  This  capability  allows  a user  to; 

1.  Add,  delete,  or  modify  inverted  key  definitions. 

2.  Remove  logically  deleted  records, 

3.  Redistribute  data  records  uniformly  across  the  data  file;  and/or 
redistribute  inverted  index  entries  uniformly  across  the  inverted 
index  file, 

4.  Correct  a descriptor  card  error. 


Unloading  an  Inverted  File 


The  job  setup  for  a GCOS  activity  that  unloads  an  inverted  file  is 
shown  below: 


$ 

PROGRAM 

XUTIL 

$ 

LIMITS 

limit  values 

$ 

DATA 

,x 

ISP 

INDEX 

FC  = ispT-index-file-code 

ISP 

DATA 

FC  f data^f iler-code-1 

[ISP 

DATA 

FC  = data-file-code-2] 

• 

$ 

file 

fc, random, ISP  index  file 

$ 

file 

fc, random, primary  data  file 

[$ 

• 

file 

fc, random, additional  data  file] 

$ 

file 

OT, sequential,  unloaded  file 

Note  that  ISP  descriptor  cards  are  to  be  used,  rather  than  INVFF  cards. 
Note  also  that  the  inverted  index  file  is  not  referenced  during  an  unload 
activity. 

Reloading  an  Inverted  File 


The  job  setup  for  a GCOS  activity  that  reloads  an  inverted  file  is  shown 
below: 


PROGRAM 

USE 

LIMITS 

DATA 


XUTIL 

.XVOP. , .XVLD. 
limit  values 
.X 


INVFF  descriptor  cards  for  a build  job 


$ 

file 

IN, sequential , file  to  be  loaded  or  reloaded 

$ 

file 

fc, random, 

ISP  index  file 

$ 

file 

fc, random, 

inverted  index  file 

$ 

file 

fc, random, 

primary  data  file 

[$ 

file 

fc .random. 

additional  data  file] 
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The  $ USE  card  accomplishes  the  same  purpose  as  the  call  or  SYMREF  to 
INVBLD  in  a user-written  program,  i,e.,  it  allows  the  inverted  file  build 
routines  to  be  loaded. 

All  rules  regarding  ISP  and  inverted  key  values  which  apply  to  a user- 
written  buird  program  also  apply  to  the  XUTIL  reloading  program. 


SECTION  III 


DESCRIPTOR  CARL  REFERENCE 


This  section  describes,  in  reference  form,  the  individual  types  of 
descriptor  card.  The  descriptions  of  the  card  types  are  arranged  alpha- 
betically to  facilitate  quick  reference, 

GENERAL  FORMAT  OF  DESCRIPTOR  CARDS 


One  general  format  applies  to  all  descriptor  cards.  It  is  defined  as 
follows : 

1 8 16 

INVFF  type  parameters 

RULES 

1.  Card  type  must  be  one  of  the  folowing  words:  DATA,  ETC,  INDEX,  INDX2, 
KEY,  RECORD,  SORTFL,  or  WORKFL. 

2.  Each  card  must  contain  at  least  one  parameter.  The  valid  parameters 
for  the  different  card  types  are  listed  with  the  individual  card  type 
descriptions. 

3.  No  blanks  may  appear  within  a parameter. 

4.  Parameters  can  be  separated  by  a comma  and/or  one  or  more  blanks. 

5.  Parameters  can  appear  on  a descriptor  card  in  any  order. 

6.  The  last  parameter  on  a card  can  be  followed  by  a blank  or  comma. 

Each  type  of  descriptor  card  is  described  below.  In  the  parameter  formats, 
upper  case  words  and  equal  signs  are  required.  Lower  case  words  represent  gen- 
eric values  defined  in  the  description  as  arguments  are  to  be  replaced  by 
specific  values.  Parameter  formats  enclosed  in  brackets  are  optional  and  can 
be  omitted. 
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DATA  Descriptor  Card 


DATA  Descriptor  Card 


One  DATA  descriptor  card  is  used  to  define  the  primary  data  file  of  an 
inverted  file.  Additional  DATA  descriptor  cards  are  used  to  specify  the  file 
codes  when  there  is  more  than  one  data  file  in  the  inverted  file, 

PARAMETERS 

FC=data-file-code-n  n=l,2,.,,,8 
[PAGESZ=data-page-size] 

[PAGEFIL=pct-f ill] 

[COL COM] 

[BLKSZ=block-size] 


RULES 

1.  The  argument  data-f ile-code-1  is  the  GCOS  file  code  of  the  primary 
inverted  data  file.  Data-f ile-code-2  through  data-f ile-code-8  rep- 
resent the  GCOS  file  codes  of  up  to  seven  additional  data  files.  The 
value  of  data-f ile-code-n+1 , interpreted  as  a twelve-bit  unassigned 
binary  integer,  must  be  one  greater  than  data-file-code-n.  The  DATA 
descriptor  card  for  the  primary  data  file  may  contain  any  of  the 
parameters.  The  DATA  descriptor  card  for  any  additional  data  file 
must  contain  only  the  FC  parameter. 

2.  The  PAGESZ,  PAGEF1L,  and  COLCOM  parameters  are  meaningful  only  when 
the  DATA  descriptor  card  is  used  in  conjunction  with  a call  to  NOPEN 
or  KINIT  or  when  it  is  used  with  the  XUTIL  utility. 

3.  The  argument  data-page-size  is  the  number  of  words  in  a data  file 
page.  This  number  must  be  a multiple  of  64  between  320  and  4032, 
inclusive.  If  the  PAGESZ  parameter  is  absent,  a value  of  320  words 
is  assumed  for  data-page-size. 

4.  The  argument  pet-fill  is  the  percentage  of  each  data  file  page  to 

be  used  for  the  storage  of  records  at  the  time  the  file  is  initially 
built.  If  the  PAGEFIL  parameter  is  absent,  a value  of  100  is  as- 
sumed for  pet-fill. 

5.  The  parameter  COLCOM  signifies  that  the  key  values  are  ordered 
according  to  the  Commercial  Collating  Sequence.  The  absence  of  this 
parameter  specifies  that  key  values  are  in  the  standard  collating 
sequence . 

6.  The  BLKSZ  parameter  is  meaningful  only  when  XUTIL  is  used  to  load, 
unload,  or  reload  an  inverted  file.  The  block-size  used  for  re- 
loading a file  must  be  the  same  size  as  that  used  when  the  file  was 
unloaded.  If  the  BLKSZ  parameter  is  absent,  a value  of  320  words 
is  assumed. 
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DATA  Descriptor  Card  DATA  Descriptor  Card 

EXAMPLES 


1 

8 

16 

INVFF 

DATA 

FC=DF,  COLCOM 

INVFF 

DATA 

PAGESZ=448  PAGEFIL=80  FC=F2 

INVFF 

INVFF 

INVFF 

DATA 

DATA 

DATA 

FC-AB,PAGESZ=64Q  "1 
FC=AC 

FC=AD  i 

More 

AB  is 

than 

the 

one  data  file, 
primary  data  file. 

INVFF 

DATA 

FC=DD,PAGESZ=512 ,BLKSZ=1024 

ETC  Descriptor  Card 


ETC  Descriptor  Card 


This  card  is  used  as  a continuation  of  a descriptor  card  of  any  other 

type. 

PARAMETERS 

Any  parameters  that  are  valid  for  the  type  of  descriptor  card  to  be  con- 
tinued. 

RULE 


This  card  allows  the  parameters  for  a descriptor  card  of  any  other  type 
to  be  placed  on  separate  cards.  The  rules  for  the  type  of  card  being  continued 
also  apply  to  any  ETC  cards  that  follow  it. 

EXAMPLES 


1 

8 

16 

INVFF 

DATA 

FC=XY 

INVFF 

ETC 

PAGESZ=1280 

INVFF 

ETC 

PAGEFIL=75 

INVFF 

INDEX 

PAGESZ=512 , 

INVFF 

ETC 

FC=IN 
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INDEX  Descriptor  Card  INDEX  Descriptor  Card 

This  card  is  used  to  specify  the  GCOS  file  code  and  the  page  size  of 

the  ISP  index  file  for  the  inverted  file. 

PARAMETERS 

FC=isp-index-f ile-code 

[PAGESZ=isp-index-page-size] 

RULES 

1.  The  argument  isp-index-f ile-code  is  the  GCOS  file  code  of  the  ISP 
index  file  for  the  inverted  file, 

2.  The  PAGESZ  parameter  is  meaningful  only  when  this  descriptor  card 
is  used  in  conjunction  with  a call  to  NOPEN  or  KINIT  or  when  it  is 
used  with  the  XUTIL  utility. 

3.  The  argument  isp-index-page-size  is  the  number  of  words  in  an  ISP 
index  page.  This  number  must  ba  a multiple  of  64  between  320  and 
4032,  inclusive.  If  the  PAGESZ  parameter  is  absent,  a value  of  320 
words  is  assumed  for  isp-index-page-size. 

EXAMPLES 


1 

8 

16 

INVFF 

INDEX 

FC=IF 

INVFF 

INDEX 

FC=F1 , PAGESZ=640 

INVFF 

INDEX 

PAGESZ=384  FC=AA 
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This  card  is  used  to  specify  the  GCOS  file  code,  page  size,  and  percentage 


fill  for  the  inverted  index  file  for  an  inverted  file. 

PARAMETERS 

FC=invf f-index-f ile-code 
[PAGESZ=invf f-index-page-size] 

[PAGEFIL=invf f-index-pct-f ill] 

RULES 

1.  The  argument  invf f-index-f ile-code  is  the  GCOS  file  code  of  the  in- 
verted index  file  for  the  inverted  file. 

2.  The  PAGESZ  and  PAGEFIL  parameters  are  meaningful  only  when  this 
descriptor  card  is  used  in  conjunction  with  a call  to  NOPEN  or 
KINIT  or  when  it  is  used  with  the  XUTIL  utility. 

3.  The  argument  invf f-index-page-size  is  the  number  of  words  on  an 
inverted  index  pag^.  This  number  must  be  a multiple  of  64  between 
320  and  4032,  inclusive.  If  the  PAGESZ  parameter  is  absent,  a 
value  of  320  words  is  assumed  for  invf f-index-page-size. 

4.  The  argument  invf f-index-pct-f ill  is  the  percentage  of  each  index 
file  page  to  be  used  for  the  storage  of  index  entries  at  the  time 
the  file  is  initially  built.  If  the  PAGEFIL  parameter  is  absent,  a 
value  of  90  percent  is  assumed  for  invf f-index-pct-f ill . 

EXAMPLES 

1 8 16 

INVFF  INDX2  FC=IF 

INVFF  INDX2  FC=F1,  PAGESZ=640 

INVFF  INDX2  PAGEFIL=80  PAGESZ=384  FC=AA 
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KEY  Descriptor  Card 


This  card  is  used  to  specify  the  characteristics  of  a data  field  to  be 
used  as  an  inverted  key  field. 

PARAMETERS 

[RTYPE=record-type]  (may  be  required,  see  Rule  2) 

KEYNO=key-number 

KEYSZ=key-size 

[ KEYOFF=key-o f f set ] 

null-character 
BLANK 

[UNIQUE] 

[SIGNED] 


RULES 

1.  The  KEY  card  is  meaningful  only  when  used  in  conjunction  with  NOPEN 
or  KINIT  or  when  it  is  used  with  the  XUTIL  utility, 

2.  The  RTYPE  parameter  is  required  and  meaningful  if  and  only  if  a 
record  type  field  is  defined  (via  the  RTYPSZ  and  RTYPOFF  parameters) 
on  the  RECORD  descriptor  card.  If  a record  type  field  is  defined, 
the  argument  record-type  specifies  the  value  contained  in  the 
record  type  field  in  all  records  for  which  this  key  field  is  de- 
fined. If  no  record  type  field  is  defined,  then  all  keys  are  con- 
sidered to  be  defined  for  every  record  on  the  file. 

3.  The  argument  key-number  must  be  an  integer  between  0 and  4,095, 
inclusive.  This  key-number  serves  to  distinguish  the  various  keys 
from  one  another.  Key  fields  from  different  record  types  which 
have  the  same  key-number  are  defined  as  participating  in  the  same 
inverted  key. 

4.  The  argument  key-size  is  the  size  of  the  key  field  in  characters. 

5.  The  argument  key-offset  is  the  number  of  character  positions  to 
the  beginning  of  the  key  field,  measured  from  the  beginning  of  the 
record.  If  the  KEYOFF  parameter  is  absent,  a value  of  zero  is 
assumed  for  key-offset,  signifying  that  the  key  field  is  located 
at  the  beginning  of  the  record. 

6.  The  NULL  parameter  signifies  that  "null  processing"  is  to  take 
place  on  this  key  field.  The  value  in  the  key  field  will  be 
considered  null  whenever  it  consists  entirely  of  the  character 
defined  as  null-character  (when  the  BLANK  option  is  present,  the 
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KEY  Descriptor  Card 


KEY  Descriptor  Card 


space  (octal  20)  will  be  considered  the  null-character) . No 
pointer  to  null  key  field  values  will  be  written  to  the  inverted 
index  file. 

7.  The  UNIQUE  parameter  signifies  that  each  new  key  value  to  be 
stored  on  the  data  file  must  be  unique,  i.e.,  must  not  duplicate 
any  key  value  already  present  on  the  file. 

8.  The  SIGNED  parameter  signifies  that  the  key  field  in  each  record 
contains  signed  data.  The  first  bit  of  the  field  is  to  be  con- 
sidered the  sign  bit. 

9.  There  must  be  one  KEY  card  for  each  field  in  each  record  that  is 
to  be  considered  an  inverted  key  field.  One  or  more  keys  may  be 
defined  for  each  record  type.  Moreover,  fields  from  different 
record  types  may  be  defined  as  the  same  key. 

10.  A data  field  may  participate  in  more  than  one  key;  if  this  is  the 
case,  then  separate  KEY  cards  must  be  provided  for  that  field  for 
each  key  in  which  it  participates. 

11.  The  NULL  and  UNIQUE  parameters  are  meaningful  only  insofar  as  they 
are  present  or  absent  on  the  first  KEY  card  pertaining  to  a given 
key  (as  determined  by  key-number) . 

12.  If  a record  type  field  is  defined,  the  SIGNED  parameter  is  meaning- 
ful only  insofar  as  it  is  present  or  absent  on  the  first  KEY  card 
pertaining  to  a given  field  in  a record  of  a given  type. 

EXAMPLES 


1 

8 

16 

INVFF 

KEY 

RTYPE=1 , KEYNO=l,  KEYSZ=5, 

KEYOFF=l , 

INVFF 

ETC 

NULL=BLANK,  SIGNED 

INVFF 

KEY 

RTYPE=2  KEYN0=2  KEYSZ=3  KEYOFF=74 

INVFF 

ETC 

NULL=A  UNIQUE 

INVFF 

KEY 

RTYPE=3 , KEYN0=  3 , KEY S Z=4 , 

\ 

INVFF 

ETC 

KEYOFF=7 

! 

One  record  type, 

INVFF 

KEY 

RTYPE=3,KEYNO=4 ,KEYSZ=20, 

multiple  keys 

INVFF 

ETC 

KEY0FF=11 

i 

INVFF 

KEY 

RTYPE=4 ,KEYN0=5 ,KEYSZ=6, 

^ Field  from  different 

INVFF 

ETC 

KEY0FF=31 ,NULL=BLANK 

1 record  types  defined 

l , 

INVFF 

KEY 

RTYPE=5 ,KEYN0=5 ,KEYSZ=6, 

INVFF 

ETC 

KEY0FF=7 

| as  same  key 
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1 

8 

16 

INVFF 

KEY 

RTYPE=6 ,KEYNO=6 ,KEYSZ=6 

INVFF 

ETC 

KEY0FF=11, SIGNED 

INVFF 

KEY 

RTYPE=6 ,KEYN0=7 ,KEYSZ=6 

INVFF 

ETC 

KEY0FF=11 

Same  data  field 
participating  in 
more  than  one  key 


RECORD  Descriptor  Card 


RECORD  Descriptor  Card 


This  card  is  used  to  specify  the  characteristics  of  the  largest  record 
in  an  inverted  data  file. 

PARAMETERS 

RECSZ=record-size 

KEYSZ=key-size 

[KEYOFF=key-of fset ] 

[RTYPSZ=record-type-size] 

[ RTYPOFF=record- type-o f f set ] 


RULES 

1.  These  parameters  are  meaningful  only  when  this  descriptor  card 
is  used  in  conjunction  with  a call  to  NOPEN  or  KIN1T  or  when  it 
is  used  with  the  XUTIL  utility. 

2.  The  argument  record-size  is  the  number  of  words  in  the  largest 
record  in  the  data  file.  This  value  cannot  exceed  1024. 

3.  The  argument  key-size  is  the  number  of  characters  in  the  ISP  key. 

4.  The  argument  key-offset  is  the  number  of  character  positions  to 
the  beginning  of  the  ISP  key,  measured  from  the  beginning  of  the 
record.  If  the  KEYOFF  parameter  is  absent,  a value  of  zero  is 
assumed  for  key-offset,  signifying  that  the  ISP  key  is  located 
at  the  beginning  of  the  record, 

5.  The  sum  of  key-offset  and  key-size  cannot  exceed  1530. 

6.  The  argument  record-type-size  is  the  number  of  characters  in  the 
record  type  field.  This  value  cannot  exceed  twelve.  If  the 
RTYPSZ  parameter  is  absent,  then  no  record  type  field  is  defined 
for  the  file. 

7.  The  RTYPOFF  parameter  is  meaningful  only  if  the  RTYPSZ  parameter 
is  present.  The  argument  record-type-offset  is  the  number  of 
character  positions  to  the  beginning  of  the  record  type  field, 
measured  from  the  beginning  of  the  record.  If  the  RTYPSZ  para- 
meter is  present  and  the  RTYPOFF  parameter  is  absent,  a value  of 
zero  is  assumed  for  record-type-offset,  signifying  that  the  record 
type  field  is  located  at  the  beginning  of  the  record. 

8.  The  sum  of  record-type-off set  and  record-type-size  cannot  exceed 
1530. 
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EXAMPLES 


1 

8 

16 

INVFF 

RECORD 

RECSZ=100,  KEYSZ=8,  RTYPSZ=2 

INVFF 

RECORD 

RTYPSZ=2  RTYPOFF=8  KEYSZ=21  RECSZ=12 

INVFF 

RECORD 

RECSZ=14 ,KEYSZ=6 ,KEY0FF=6 

3-11 


SORTFL  Descriptor  Card 


SORTFL  Descriptor  Card 


This  card  is  used  to  specify  the  file  code  of  the  temporary  file  on 
which  entries  for  the  inverted  index  file  are  to  be  written  during  a build 
job. 

PARAMETER 

FC=sort-f ile-code 

RULES 

1.  The  argument  sort-file-code  must  be  the  file  code  of  a magnetic 
tape  or  linked  disk  file. 

2.  This  descriptor  card  is  meaningful  only  when  used  in  conjunction  with 
a call  to  NOPEN  or  when  it  is  used  with  the  XUTIL  utility. 

EXAMPLE 

1 8 16 


INVFF 


SORTFL 


FC=FS 
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WORKFL  Descriptor  Card 


This  card  is  used  to  specify  the  file  code  of  the  temporary  file  on 
which  record  addresses  from  the  inverted  index  file  are  to  be  written  during 
a retrieval  job. 

PARAMETER 

FC=work-f ile-code 


RULES 

1.  The  argument  work-file-code  must  be  the  file  code  of  a random  disk 
file. 

2.  This  descriptor  card  is  meaningful  only  when  used  in  conjunction 
with  a call  to  IOPEN  or  LOPEN  and  is  necessary  only  when  records 
are  to  be  processed  via  calls  to  GETIND  and  GETREC. 

EXAMPLE 

1 8 16 


INVFF 


WORKFL 


FC=WF 


SECTION  IV 

SUBROUTINE  REFERENCE 


This  section  describes,  in  reference  form,  the  subroutines  needed  to 
process  inverted  files.  The  descriptions  of  the  subroutines  are  arranged 
alphabetically  to  facilitate  quick  reference.  Included  within  the  descrip- 
tion of  each  subroutine  are  the  functions  performed  by  each  subroutine,  the 
required  forms  of  calling  the  subroutine,  and  a list  of  rules  governing  the 
use  of  the  subroutine. 

As  in  the  case  of  ISP,  all  subroutines  are  invoked  through  the  standard 
CALL  interface.  Therefore,  any  of  the  standard  programming  languages  (COBOL, 
FORTRAN,  and  GMAP)  can  be  used  to  process  inverted  files.  Unless  otherwise 
indicated,  the  CALL  formats  described  in  this  section  are  in  the  form  of 
COBOL  statements.  Reference  should  be  made  to  the  appropriate  programming 
language  manual  for  specific  rules  regarding  the  CALL  interface  in  that 
language . 

CALL  FORMAT  CONVENTIONS 


The  CALL  formats  in  this  section  obey  the  following  conventions: 


1.  Upper  case  words  are  required. 

2.  Lower  case  words  denote  generic  arguments  that  are  replaced  by 
specific  names  in  the  user's  program. 

3.  Terms  enclosed  in  brackets  are  optional  and  can  be  omitted. 


TYPES  OF  ARGUMENTS 

There  are  three  basic  types  of  arguments:  location,  alphanumeric,  and 
numeric.  These  types  are  defined  below. 


Argument  Type 
Location  (L) 
Alphanumeric  (A) 


Definition 

The  location  of  a block  of  words  in  memory. 

A string  of  two  6-bit  BCD  characters,  left- 
justified  in  a word. 


Numeric  (N)  A full-word  binary  integer,  defined  as  INTEGER 

in  FORTRAN  and  COMPUTATIONAL-1  in  COBOL. 

All  of  the  arguments  that  appear  in  the  CALL  formats  in  this  section  are 
listed  below  in  alphabetical  order. 
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Argument 


alt-record-area 

alt-record-size 


criteria- table 

data-f ile-code-1 

desc-f ile-code 

error-code 

function-code 

isp-index- file- 
code 

invf  f- index-file 
code 

key-no- n 

no-of-recs 


Type  Description 

L The  location  of  an  area  of  memory  into  which 

a record  is  to  be  placed  by  GETSEQ,  GETRAN,  or 
GETREC.  This  location  may  differ  from  that 
specified  as  record-area  in  the  call  to  IOPEN 
or  LOPEN. 

N The  number  of  words  in  the  record  to  be  stored  by 

FILINT  or  ADDREC.  Also  the  number  of  records  to 
be  moved  into  alt-record-area  by  GETSEQ,  GETRAN, 
or  GETREC,  Under  certain  conditions,  ISP  stores 
the  size  of  the  record  which  it  has  moved  into 
alt-record-area  into  this  location.  See  the  de- 
scriptions of  GETSEQ,  GETRAN,  and  GETREC  for  de- 
tails. 

L The  location  of  an  area  of  memory  where  GETIND  is 

to  find  the  table  of  conditionals  to  be  used  as 
criteria  for  retrieving  record  addresses. 

A The  GCOS  file  code  of  the  primary  inverted  data 

file.  Under  certain  conditions,  ISP  stores  the 
file  code  in  this  location.  See  the  descriptions 
of  NGPEN,  IOPEN,  and  LOPEN  for  details. 

A The  GCOS  file  code  of  the  file  that  contains  the 

descriptor  cards. 

L The  word  into  which  ISP  is  to  store  an  error  code 

following  a call  to  ADDREC,  CHGREC , DELREC,  FILINT, 
GETIND,  GETRAN,  GETREC,  GETSEQ,  IOPEN,  LOPEN,  NOPEN, 
XCKPTP,  or  XREWND.  Error  codes  are  described  in 
detail  in  Section  V. 

N The  value  that  specifies  the  function  to  be  per- 

formed by  XREWND. 

A The  GCOS  file  code  of  the  ISP  index  file. 


A The  GCOS  file  code  of  the  inverted  index  file. 


N Key  number  of  an  inverted  key  being  used  in  a 

conditional  for  GETIND.  See  the  description  of 
GETIND  in  this  section  for  details. 

N Number  of  records  found  by  GETIND  containing  in- 

verted keys  which  meet  specified  criteria. 


record-area 


rel-code-n 


seq-check 


sort-f ile-code 


stat-area 


value-n 


work- file-code 


Type 

N 

L 

N 


Description 


Value  indicating  to  GETIND  the  manner  in -which 
record  addresses  retrieved  by  the  current  call 
to  GETIND  are  to  be  manipulated  with  the  con- 
tents of  the  work  file. 


The  location  of  an  area  of  memory  into  which 
records  are  read  and  from  which  records  are 
written. 


Value  in  a conditional  for  GETIND  indicating 
how  the  inverted  key  field  in  the  data  record 
is  to  be  compared  to  the  specified  value  value-n. 
See  the  description  of  GETIND  in  this  section  for 
details . 


L The  location  of  a block  of  memory  large  enough 

to  hold  one  ISP  key  value  with  the  same  word 
orientation  that  it  has  in  a record.  The 
presence  of  this  argument  in  the  first  call  to 
FILINT  directs  ISP  to  check  ISP  key  values  for 
proper  sequence. 

A The  GCOS  file  code  of  the  file  being  used  as  a 

sort  file  during  a build  procedure. 

L The  location  of  a seven-word  block  of  memory  into 

which  XSTAT  is  to  store  the  current  values  of 
seven  file  usage  parameters.  See  the  description 
of  XSTAT  in  the  current  ISP  manual. 

L The  location  of  an  area  of  memory  containing  the 

specific  value,  in  a conditional  for  GETIND,  to 
which  values  contained  in  an  inverted  key  field 
are  to  be  compared.  See  the  description  of 
GETIND  in  this  section  for  details. 

A The  GCOS  file  code  of  the  file  being  used  as 

a work  file  during  a retrieval  procedure. 


ADDREC 


ADDREC 


Function 


Add  a new  record  to  an  existing  inverted  file. 
Format 


CALL  ADDREC  USING  data-f ile-code-1 , error-code 
[ , alt-record-size] 


Rules 

1.  If  no  CALL  or  SYMREF  to  INVUPD  is  present  in  the  user's  program, 
the  call  to  ADDREC  will  cause  the  program  to  abort  with  the 
message  "REQUIRED  INVERTED  FILE  SUBROUTINES  NOT  LOADED". 

2.  Data-f ile-code-1  must  refer  to  a file  that  has  been  opened  by 
IOPEN  or  LOPEN. 

3.  The  record  to  be  added  to  the  file  must  be  located  starting  at 
record-area,  defined  at  the  time  IOPEN  or  LOPEN  is  called.  The 
ISP  key  value,  record  type  field  (if  defined),  and  inverted  key 
values  must  be  at  the  positions  within  this  area  specified  for 
those  fields  at  initialization  time. 

4.  If  the  ISP  key  value  of  the  record  to  be  added  already  exists  in 
the  file,  error-code  is  set  to  X07. 

5.  If  a record  type  field  is  defined  for  the  file,  and  if  the  value 
contained  in  the  record  type  field  was  not  present  as  a record- 
type  argument  on  a KEY  descriptor  card  at  initialization  time 
(i.e.,  if  no  inverted  keys  have  been  defined  for  a record  of  that 
type),  then  error-code  is  set  to  V01. 

6.  If  the  value  contained  in  an  inverted  key  field  is  a duplicate  of 

a key  value  (for  the  same  key)  that  is  already  present  on  the  file, 
and  if  that  inverted  key  was  defined  as  UNIQUE,  then  error-code 
is  set  to  V02. 

7.  If  the  optional  argument  alt-record-size  is  specified,  its  value 
must  be  less  than  or  equal  to  the  value  of  record-size  specified 
at  initialization  time;  otherwise,  the  option  is  ignored.  If  the 
value  of  alt-record-size  is  greater  than  record-size  or  zero,  or 
if  argument  alt-record-size  is  omitted,  then  the  value  of  record- 
size  specified  at  initialization  time  is  used. 


CHGREC 


CHGREC 


Function 


Replace  an  existing  record  in  an  inverted  file  by  a record  that  has 
the  same  ISP  key  value  and  the  same  size. 

Format 


CALL  CHGREC  USING  data-f ile-code-1 , error-code. 


Rules 

1.  If  no  CALL  or  SYMREF  to  INVUPD  is  present  in  the  user's  program, 
the  call  to  CHGREC  will  cause  the  program  to  abort  with  the  mes- 
sage: "REQUIRED  INVERTED  FILE  SUBROUTINES  NOT  LOADED". 

2.  Data-f ile-code-1  must  refer  to  a file  that  has  been  opened  by  IOPEN 
or  LOPEN. 

3.  The  record  that  is  to  replace  the  existing  record  must  be  located 
starting  at  record-area,  defined  at  the  time  IOPEN  or  LOPEN  is 
called.  The  ISP  key  value,  record  type  field  (if  defined),  and 
inverted  key  values  must  be  at  the  positions  within  this  area  specified 
for  those  fields  at  initialization  time. 

4.  If  the  ISP  key  value  of  the  record  does  not  exist  already  in  the 
file,  error-code  is  set  to  X02. 

5.  If  a record  type  field  is  defined  for  the  file,  and  if  the  value 
contained  in  the  record  type  field  of  either  the  existing  record  or 
the  replacement  record  does  not  exist  as  a record-type  argument  on  a 
KEY  descriptor  card  at  initialization  time  (i.e.,  if  no  inverted  keys 
have  been  defined  for  a record  of  that  type),  then  error-code  is  set 
to  V01. 

6.  If  the  value  contained  in  an  inverted  key  field  of  the  record  that 
is  to  replace  the  existing  record  is  a duplicate  of  a key  value 
(for  the  same  key)  that  is  already  present  on  the  file,  and  if  that 
inverted  key  was  defined  as  UNIQUE,  the  error-code  is  set  to  V02, 


DELREC 


DELREC 


Function 


Delete  a record  from  an  inverted  file. 
Format 


CALL  DELREC  USING  data-f ile-code-1 , error-code. 


Rules 

1.  If  no  CALL  or  SYMREF  to  INVUPD  is  present  in  the  user's  program, 

the  call  to  DELREC  will  cause  the  program  to  abort  with  the  message 

"REQUIRED  INVERTED  FILE  SUBROUTINES  NOT  LOADED". 

2.  Data-f ile-code-1  must  refer  to  a file  that  has  been  opened  by  IOPEN 
or  LOPEN. 

3.  The  ISP  key  value  of  the  record  to  be  deleted  must  be  placed  in  the 
ISP  key  field  (defined  at  initialization  time)  of  record-area,  de- 
fined at  the  time  IOPEN  or  LOPEN  is  called. 

4.  If  the  ISP  key  value  of  the  record  to  be  deleted  does  not  exist  in 
the  file,  error-code  is  set  to  X02. 

5.  If  a record  type  field  is  defined  for  the  file,  and  if  the  value 

contained  in  the  record  type  field  of  the  record  to  be  deleted  was 

not  present  as  a record-type  argument  on  a KEY  descriptor  card  at 
initialization  time  (i.e.,  if  no  inverted  keys  have  been  defined 
for  a record  of  that  type),  error-code  is  set  to  V01. 


FILINT 


FILINT 


V 


« 


Function 

Stores  a record  into  an  inverted  file  that  has  been  opened  for  the  first 
time  (by  NOPEN  or  KOPEN) . 

Format 

CALL  FILINT  USING  data-f ile-code-1  [, alt-record-size  [, error-code, seq-check] ] 

Rules 

1.  Data-f ile-code-1  must  refer  to  a file  that  has  been  opened  by  NOPEN 
and  KOPEN. 

2.  The  record  to  be  stored  in  the  file  must  be  located  starting  at 
record-area,  defined  at  the  time  NOPEN  or  KOPEN  is  called.  The 
ISP  key  value,  record  type  field  (if  defined),  and  inverted  key 
values  must  be  at  the  positions  within  this  area  specified  for  those 
fields  at  initialization  time. 

3.  If  the  optional  argument  alt-record-size  is  specified,  the  record 

to  be  stored  must  be  large  enough  to  contain  all  of  the  inverted  keys 
defined  for  a record  of  its  type.  If  the  record  is  not  large  enough, 
the  record  is  not  stored  and  error-code  is  set  to  V02.  At  the  same 
time,  however,  the  value  of  alt-record-size  must  be  less  than  or 
equal  to  the  value  of  record-size  specified  at  initialization  time; 
otherwise,  the  option  is  ignored.  If  the  value  of  alt-record-size 
is  greater  than  record-size,  or  if  argument  alt-record-size  is 
omitted,  then  the  value  of  record-size  specified  at  initialization 
time  is  used. 

4.  If  argument  error-code  and  seq-check  are  specified,  FILINT  will 
verify  that  each  ISP  key  value  is  greater  than  the  preceding  ISP 
key  value,  according  to  the  collating  sequence  selected  by  the  user. 

If  an  out-of-sequence  ISP  key  is  encountered,  error  code  XQ3  is 
stored  in  location  error-code.  If  these  two  arguments  are  omitted, 
no  sequence  checking  is  done,  and  ISP  key  values  are  assumed  to  be 
in  the  correct  order.  Note  that  if  arguments  error-code  and  seq- 
check  are  specified,  alt-record-size  must  also  be  present,  although 
it  can  have  the  same  value  as  record-size. 

5.  If  the  value  contained  in  an  inverted  key  field  of  the  record  to  be 
stored  is  a duplicate  of  a key  value  (for  the  same  key)  that  is  al- 
ready present  on  the  file,  and  if  that  inverted  key  was  defined  as 
UNIQUE,  the  record  is  stored  in  the  data  file  but  no  entry  for  the 
duplicate  occurrence  is  placed  in  the  inverted  index  file.  A 
warning  message  to  this  effect  is  printed  on  the  utilization  report. 

When  a future  attempt  is  made  to  retrieve  via  GETIND  and  GETREC  all 
of  the  records  containing  that  key  value,  only  the  record  containing 
the  first  occurrence  will  be  retrieved. 
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GETIND 


GETIND 


Function 


Retrieve  the  data  file  addresses  of  all  records  containing  inverted  key 
values  which  satisfy  specified  criteria,  and  either  place  those  addresses  on 
the  work  file  or  logically  manipulate  those  addresses  with  the  addresses  cur- 
rently contained  on  the  work  file. 

Format  1 

CALL  GETIND  USING  data-f ile-code-1 , error-code,  no-of-recs,  option-code, 
key-no-1,  rel-code-1,  value-1  [, key-no-2, rel-code-2,  value-2]... 


Format  2 

CALL  GETIND  USING  data-f ile-code-1 , error-code,  no-of-recs,  option-code, 
criteria- table. 

Rules 

1.  Data-f ile-code-1  must  refer  to  a file  that  has  been  opened  by  IOPEN 
or  LOPEN. 

2.  No-of-recs  refers  to  a location  into  which  GETIND  is  to  store,  as 

a full-word  binary  integer  (FORTRAN  INTEGER,  COBOL  COMPUTATIONAL- 1) 
the  number  of  records  on  the  file  which  meet  the  specified  criteria 
If  no  records  are  found  which  meet  the  criteria,  no-of-recs  is  set 
to  zero  and  error-code  is  set  to  X02. 

3.  GETIND  obtains  the  criteria  for  selecting  record  addresses  to  be 
retrieved  by  reading  a list  of  conditionals.  A conditional  is  a 
true-or-false  statement  about  the  contents  of  an  inverted  key  field 
of  a record.  This  statement  is  represented  in  the  program  logic 

as  a three-element  vector  consisting  of  the  elements  key-no-n,  rel- 
code-n,  and  value-n,  defined  as  follows: 

Key-no-n  - a key-number,  as  specified  on  one  or  more  KEY 
descriptor  cards  at  initialization  time,  which 
serves  to  identify  an  inverted  key. 

rel-code-n  - one  of  the  following  binary  values  corresponding 
to  the  indicated  relational  state: 

1 = "greater  than" 

2 - "greater  than  or  equal  to" 

3 - "equal  to" 

4 - "less  than  or  equal  to" 

5 - "less  than" 

value-n  - the  specific  value  to  be  used  for  the  comparison 
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GETIND 


GETIND 


The  list  composed  of  all  such  conditionals  may  be  passed  to 
GETIND  in  either  of  the  following  manners: 

a.  In  Format  1,  the  list  of  conditionals  is  a direct  part 
of  the  CALL  format,  i.e.: 

key-no-1,  rel-code-1,  value-1  [, key-no-2,  rel-code-2, 
value-2] . , , 

b.  In  Format  2,  the  argument  criteria-table  is  the  location  of 
a table  which  contains  the  list  of  conditionals  in  the 
following  format: 


ARG 

key-no-1 

ARG 

rel-code-1 

ARG 

value-1 

[ARG 

key-no-2 

ARG 

rel-code-2 

ARG 

value-2] . . . 

Each  conditional  is  either  "true"  or  "false"  with  respect  to  each 
record  in  the  file.  If  all  of  the  conditionals  are  found  to  be 
"true"  for  a given  record,  the  data  file  address  of  that  record  is 
placed  in  the  active  list  of  record  addresses  which,  when  completed, 
will  subsequently  be  manipulated  with  the  list  of  record  addresses 
already  present  on  the  work  file. 

4.  The  argument  option-code  must  be  specified  in  order  to  indicate  the 
desired  action  upon  the  active  list  of  record  addresses  (those 
retrieved  by  the  current  call  to  GETIND)  with  respect  to  the  list 
which  is  currently  present  on  the  work  file  (having  been  placed  there 
by  any  previous  calls  to  GETIND) . 

1 - Initialize  - replace  the  current  contents  of  the  work  file  (if 

any)  with  the  active  list.  In  symbolic  notation: 

(work  file)  < (active  list) 

2 - Logical  "or"  - replace  the  list  of  record  addresses  currently 

contained  on  the  work  file  with  the  union  of  that  list  and  the 
active  list.  In  symbolic  notation: 

(work  file)  < (work  file)  V (active  list) 

3 - Logical  "and"  - replace  the  list  of  record  addresses  currently 

contained  on  the  work  file  with  the  intersection  of  that  list 
and  the  active  list.  In  symbolic  notation: 

(work  file)< (work  file)  A (active  list) 
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GETIND 


At  the  time  at  which  the  first  call  to  GETIND  is  executed  by  the 
program,  option-code  must  contain  the  value  of  one  (initialize) ; 
if  not,  error-code  is  set  to  X01.  If  upon  any  other  call  to  GETIND 
the  value  of  option-code  is  out  of  range  (not  Equal  to  one,  two,  or 
three),  a value  of  three  (logical  "and")  is  assumed. 


GETRAN 


GETRAN 


Function 

Retrieve  a record  that  has  a specified  ISP  key  value  from  an  inverted 

file. 

Format 

CALL  GETRAN  USING  data-f ile-code-1 , error-code 
[ , alt-record-area  [ , alt-record-size] ] . 


Rule 

GETRAN  processes  an  inverted  file  as  a simple  ISP  file;  no  reference  to 
the  inverted  index  file  is  made.  Therefore,  the  rules  governing  the  use 
of  GETRAN  with  respect  to  inverted  files  are  the  same  as  those  which 
apply  to  the  use  of  GETRAN  with  ISP  files.  A list  of  these  rules  may  be 
found  in  the  description  of  GETRAN  in  the  current  ISP  manual. 
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Function 


Retrieve  the  next  available  data  file  address  placed  on  the  work  file  by 
GETIND;  then  retrieve  the  record  having  that  address  on  the  data  file. 

Format 


CALL  GETREC  USING  data-f ile-code-1 , error-code 
[ , alt-record-area  [ , alt-record-size] ] . 


Rules 

1.  Data-f ile-code-1  must  refer  to  a file  that  has  been  opened  by  IOPEN 
and  LOPEN. 

2.  A call  to  GETIND  must  be  executed  prior  to  the  first  call  to  GETREC. 

3.  If  there  are  no  more  data  file  addresses  on  the  work  file  remaining 
to  be  retrieved,  error-code  is  set  to  X04. 

4.  If  the  record  is  to  be  moved  to  an  area  other  than  record-area, 
defined  when  IOPEN  or  LOPEN  was  called,  then  the  argument  alt-record- 
area  must  be  present  to  specify  the  location  of  this  other  area. 

5.  The  argument  alt-record-size  is  used  to  specify  the  number  of  words 
to  be  moved  into  alt-record-area.  If  the  value  of  alt-record-size 
exceeds  the  actual  size  of  the  record  to  be  moved,  then  only  the 
number  of  the  words  in  the  record  is  moved.  If  the  value  of  alt- 
record-size  is  set  equal  to  zero  preceding  the  call  to  GETREC,  then 
the  actual  size  of  the  record  moved  is  stored  into  location  alt-record- 
size  by  GETREC.  If  this  technique  is  used,  alt-record-size  must  be 
set  equal  to  zero  preceding  every  call  to  GETREC,  because  it  will  have 
been  set  to  a non-zero  value  by  the  previous  call.  Note  that  if  alt- 
record-size  is  specified,  alt-record-area  must  also  be  present. 
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GETSEQ 


Function 


Retrieves  the  next  available  record  from  an  inverted  file  without  ref- 
erence to  the  ISP  and  inverted  index  files. 

Format 

CALL  GETSEQ  USING  data-f ile-code-1 , error-code 
[ , alt-record-area  [ , alt-record-size] ] . 

Rule 

GETSEQ  processes  an  inverted  file  as  a simple  ISP  file;  no  reference 
to  the  inverted  index  file  is  made.  Therefore,  the  rules  governing 
the  use  of  GETSEQ  with  respect  to  inverted  files  are  the  same  as  those 
which  apply  to  the  use  of  GETSEQ  with  ISP  files.  A list  of  these  rules 
may  be  found  in  the  description  of  GETSEQ  in  the  current  ISP  manual. 
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ICLOSE 


ICLOSE 


INVBLD 


INVBLD 


Function 

Allows  inverted  file  build  routines  to  be  loaded. 
Fo  rmat 

FORTRAN  CALL  INVBLD 

COBOL  CALL  INVBLD. 

GMAP  SYMREF  INVBLD 


Rule 

The  INVBLD  routine  itself  accomplishes  nothing,  but  a CALL  or  SYMREF 
to  INVBLD  is  necessary  for  instructing  the  General  Loader  to  load  the 
inverted  file  build  routines.  If  no  CALL  or  SYMREF  to  INVBLD  is 
present  and  the  program  attempts  to  process  an  inverted  file  with  a 
call  to  NOPEN,  KOPEN,  or  KINIT,  the  procedure  will  be  aborted  with  the 
message:  "REQUIRED  INVERTED  FILE  SUBROUTINES  NOT  LOADED". 
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INVUPD 


INVUPD 


Function 

Allows  inverted  file  update  routines  to  be  loaded. 

Format 

FORTRAN  CALL  INVUPD 

COBOL  CALL  INVUPD. 

GMAP  SYMREF  INVUPD 

Rule 

The  INVUPD  routine  itself  accomplishes  nothing,  but  a CALL  or  SYMREF 
to  INVUPD  is  necessary  for  instructing  the  General  Loader  to  load  the 
inverted  file  update  routines.  If  no  CALL  or  SYMREF  to  INVUPD  is 
present  and  the  program  attempts  to  process  an  inverted  file  with  a 
call  to  ADDREC,  CHGREC,  or  DELREC,  the  procedure  will  be  aborted  with 
the  message:  "REQUIRED  INVERTED  FILE  SUBROUTINES  NOT  LOADED". 


*** 

& ' 


IOPEN 


IOPEN 


Function 

Open  an  existing  inverted  file. 

Format 

CALL  IOPEN  USING  record-area,  data-f ile-code-1 , desc-f ile-code  [, error-coda] . 

Rules 

1.  The  following  descriptor  cards,  containing  the  indicated  parameters, 
must  be  present  on  the  descriptor  card  file  having  file  code  desc- 
f ile-code : 


Card  Type 

Parameters 

INDEX 

FC  = isp-index-f ile-code 

INDX2 

FC  = invf f-index-f ile-code 

DATA 

FC  = data-f ile-code-1 

WORKFL 

FC  = work-file-code 

The  WORKFL  card  need  be  present,  however,  only  if  the  file  is  to  be 
processed  with  calls  to  GETIND  and  GETREC.  A complete  description 
of  all  descriptor  cards  and  descriptor  card  parameters  may  be  found 
in  Section  HI  of  this  manual. 

2.  No  value  for  data-f ile-code-1  need  be  stored  in  the  user  core  loca- 
tion data-f ile-code-1.  IOPEN  will  move  the  file  code  of  the  primary 
data  file,  which  it  finds  on  the  DATA  card  in  the  descriptor  card 
file,  into  core  location  data-f ile-code-1 . 

3.  If  the  optional  argument  error-code  is  included,  control  is  re- 
turned to  the  user  if  any  of  the  error  conditions  associated  with 
IOPEN  (see  Section  V)  are  detected.  If  error-code  is  omitted  and 
any  of  these  conditions  occur,  the  job  will  be  aborted. 
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KIN  IT 


KINIT 


Function 


L 


Initialize  an  inverted  file.  Designed  primarily  for  use  by  World  Wide 
Data  Management  System  (WWDMS) . The  use  of  KINIT  in  user  programs  is  dis- 
couraged, as  NOPEN  will  accomplish  the  same  function  as  the  combination  of 
KINIT  and  KOPEN,  with  greater  flexibility. 

Format 


CALL  KINIT  USINC  desc-file-code. 


Rule 


The  following  descriptor  cards,  containing  the  indicated  parameters, 
must  be  present  on  the  descriptor  card  file  having  file  code  desc- 
file-code. 


Card  Type  Parameters 

INDEX  FC  = isp-index-f ile-code 

PAGESZ  = isp-index-page-size  (optional,  default  =320) 

DATA  FC  = data-f ile-code-n,  n = 1,  2,  ...  8 

PAGESZ  = data-page-size  (optional,  default  = 320) 
PAGEFIL  = pet-fill  (optional,  default  = 100) 

COLCOM  (optional) 


RECORD  RECSZ  = record-size 

KEYSZ  = key  size 

RECORD  KEYOFF  = key-offset  (optional,  default  = 0) 

RTYPSZ  = record-type-size  (optional) 

RTYP0FF  = record-type-offset  (optional,  default  = 0) 


FC  = invf f-index-page-size  (optional,  default  = 320) 
PAGESZ  = invf f-index-page-size  (optional,  default  = 320) 
PAGEFIL  = invf f-pct-f ill  (optional,  default  = 90) 

RTYPE  = record-type  (required  if  and  only  if  RTYPSZ 
is  present  on  RECORD  card) 

KEYN0  = key-number 
KEYSZ  = key-size 

KEYOFF  = key-offset  (optional,  default  = 0) 

......  ( null-character  ) , .. 

NULL  = \ BLANK  } (°Pti0nal) 

UNIQUE  (optional) 

SIGNED  (optional) 

If  a record  type  field  is  defined  (i.e.,  if  the  RTYPSZ  parameter  is  present 
on  the  RECORD  descriptor  card) , at  least  one  KEY  card  must  be  present  for 
each  record  type  (for  each  unique  value  contained  in  the  record  type  field). 

A complete  description  of  all  descriptor  cards  and  descriptor  card  para- 
meters may  be  found  in  Section  III  of  this  manual. 
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INDX2 


KEY 


KOPEN  KOPEN 

Function 

Opens  an  initialized  inverted  file  for  the  first  time.  Designed  pri- 
marily for  use  by  World  Wide  Data  Management  System  (WWDMS) . The  use  of 
KOPEN  in  user  programs  is  discouraged,  as  NOPEN  will  accomplish  the  same 
function  as  the  combination  of  KINIT  and  KOPEN,  with  greater  flexibility. 

Format 

CALL  KOPEN  USING  data-f ile-code-1 , isp-index-file-code,  invf f-index-file- 
code,  sort-file-code,  record-area. 


Rule 


The  first  four  arguments  of  the  CALL  format  are  described  in  detail  in 
the  descriptions  of  the  DATA,  INDEX,  INDX2 , and  SORTFL  descriptor  cards 
in  Section  III. 
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LOPEN 


LOPEN 


Function 

Open  an  existing  inverted  file.  Designed  primarily  for  use  by  World 
Wide  Data  Management  System  (WWDMS).  The  use  of  LOPEN  in  user  programs  is 
discouraged,  as  IOPEN  will  accomplish  the  same  function  as  LOPEN,  with 
greater  flexibility. 

Format  1 

CALL  LOPEN  USING  record-area,  data-file-code-1 , desc-f ile-code  [ .error-code] . 
Format  2 

CALL  LOPEN  USING  data-file-code-1,  isp-index-f ile-code , invf f-index-f ile- 
code,  work-file-code,  record-area. 

Rules 

1.  Format  1 has  the  same  effect  as  CALL  IOPEN. 

2.  The  first  four  arguments  for  Format  2 are  described  in  detail  in 
the  descriptions  of  the  DATA,  INDEX,  INDEX2,  and  WORKFL  descriptor 
cards  in  Section  III. 
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NOPEN  NOPEN 


Function 

Open  a new  inverted  file  for  the  first  time. 

Format 

CALL  NOPEN  USING  record-area,  data-f ile-code-1,  desc-f ile-code 
[ , error-code] . 

Rules 

1.  The  following  descriptor  cards,  containing  the  indicated  parameters, 
must  be  present  on  the  descriptor  card  file  having  file  code  desc- 
f ile-code . 

Card  Type  Parameters 

INDEX  FC  = isp-index-file-code 

PAGESZ  = isp-index-page-size  (optional, 
default  = 320) 

DATA  i , FC  = data-f ile-code-n,  n = 1,  2,  ...  8 

PAGESZ  = data-page-size  (optional, 
default  = 320) 

PAGEFIL  = pet-fill  (optional,  default  = 100) 
COLCOM  (optional) 

RECORD  RECSZ  = record-size 

KEYSZ  = key-size 

KEYOFF  = key-offset  (optional,  default  = 0) 

RTYPSZ  = record-type-size  (optional) 

RTYPOFF  = record-type-offset  (optional, 
default  = 0) 

INDX2  FC  = invf f-index-f ile-code 

PAGESZ  = invf f-index-page-size  (optional, 
default  = 320) 

PAGEFIL  = invf f-pct-f ill  (optional,  default  = 90) 
SORTFL  FC  = sort-file-code 

KEY  RTYPE  = record-type  (required  if  and  only  if 

RTYPSZ  is  present  on  RECORD  card) 

KEYNO  = key-number 
KEYSZ  = key-size 

KEYOFF  = key-offset  (optional,  default  = 0) 

_ _ J null-character  ) , . . ,, 

NULL  = \ BLANK  ) (optional) 

UNIQUE  (optional) 

SIGNED  (optional) 


NOPEN 


If  a record  type  field  is  defined  (i.e.,  if  the  RTYPSZ  parameter  is 
present  on  the  RECORD  descriptor  card) , at  least  one  KEY  card  must 
be  present  for  each  record  type  (for  each  unique  value  contained  in 
the  record  type  field) . 

A complete  description  of  all  descriptor  cards  and  descriptor  card 
parameters  may  be  found  in  Sectionlllof  this  manual. 

No  value  for  data-f ile-code-1  need  be  stored  in  the  user  core  location 
data-file-code-1.  NOPEN  will  move  the  file  code  of  the  primary  data 
file,  which  it  finds  on  the  DATA  descriptor  card  in  the  descriptor 
card  file,  into  core  location  data-file-code-1. 

If  the  optional  argument  error-code  is  included,  control  is  returned 
to  the  user  if  any  of  the  error  conditions  associated  with  NOPEN 
(see  Section  V)  are  detected.  If  error-code  is  omitted  and  any  of 
these  conditions  occur,  the  job  will  be  aborted. 


WRAPUP 


WRAPUP 


Function 


Close  all  inverted  and  indexed  sequential  files  currently  open. 
Format 


CALL  WRAPUP. 


Rules 

1.  All  inverted  and  indexed  sequential  files  opened  by  NOPEN,  KOPEN, 
IOPEN,  or  LOPEN  are  closed. 

2.  If  unused  allocated  memory  was  used  for  inverted  and/or  ISP  file 
tables  and  page  buffers,  word  37  (octal)  in  the  slave  program  pre- 
fix is  restored  to  the  value  that  it  had  before  ISP  altered  it  on 
the  first  call  to  an  open  routine. 


XCKPTF 


XCKPTF 


Function 


Establish  a checkpoint  for  all  open  files. 
Format 


CALL  XCKPTF. 


Rule 

The  rules  governing  the  use  of  XCKPTF  with  respect  to  inverted  files 
are  the  same  as  those  which  apply  to  the  use  of  XCKPTF  with  ISP  files. 
A list  of  these  rules  may  be  found  in  the  description  of  XCKPTF  in  the 
current  ISP  manual. 


XCKPTP 


XCKPTP 


Function 

Establish  a checkpoint  for  the  program  and  for  all  open  files. 


XFLUSH 


XFLUSH 


Function 


Write  any  updated  pages  residing  in  page  buffers  to  random  access  storage. 

Format 

CALL  XFLUSH  [USING  function-code]. 

I 

Rule 

The  rules  governing  the  use  of  XFLUSH  with  respect  to  inverted  files  are 
the  same  as  those  which  apply  to  the  use  of  XFLUSH  with  ISP  files.  A 

list  of  these  rules  may  be  found  in  the  description  of  XFLUSH  in  the  1 

current  ISP  manual. 
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XREWND 


XREWND 


Function 


Position  the  current  record  pointer  to  the  first  record  in  an  inverted 
file  or  to  a record  having  an  ISP  key  value  greater  than  or  equal  to  a 
specified  ISP  key  value. 

Format 


CALL  XREWND  USING  data-f ile-code-1  [, error-code,  function-code] . 


Rule 


XREWND  processes  an  inverted  file  as  a simple  ISP  file;  no  reference  to 
the  inverted  index  file  is  made.  Therefore,  the  rules  governing  the  use 
of  XREWND  with  respect  to  inverted  files  are  the  same  as  those  which 
apply  to  the  use  of  XREWND  with  ISP  files.  A list  of  these  rules  may 
be  found  in  the  description  of  XREWND  in  the  current  ISP  manual. 


XROLBF 


XROLBF 


Function 


Restore  (rollback)  the  files  that  are  open  at  the  time  of  the  previous 
checkpoints  to  their  state  at  that  time.  The  effect  is  to  cancel  all  changes 
to  the  files  since  the  previous  checkpoint. 

Format 


CALL  XROLBF. 


Rule 


A call  to  either  XCKPTF  or  XCKPTP  must  be  executed  prior  to  performing 
the  rollback. 


XROLBP XROLPB 

Function 

Restore  (rollback)  the  program  and  all  files  that  are  open  at  the  time 
of  the  previous  checkpoint  to  their  state  at  that  time.  The  effect  is  to 
cancel  all  changes  to  the  files  since  the  checkpoint  and  to  restart  the  pro- 
gram from  that  point. 

Format 

CALL  XROLBP. 

Rule 

A call  to  XCKPTP  must  be  executed  prior  to  performing  the  rollback. 


XSTAT 


XSTAT 


Function 


Store  the  current  values  of  seven  ISP  file  attribute  parameters. 
Format 


CALL  XSTAT  USING  data-f ile-code-1 , stat-area. 


Rule 


XSTAT  processes  an  inverted  file  as  a simple  ISP  file;  no  reference 
to  the  inverted  index  file  is  made.  Therefore,  the  rules  governing 
the  use  of  XSTAT  with  respect  to  inverted  files  are  the  same  as  those 
which  apply  to  the  use  of  XSTAT  with  ISP  files.  A list  of  these  rules  may 
be  found  in  the  description  of  XSTAT  in  the  current  ISP  manual. 


SECTION  V 


ERROR  CODES 


The  call  argument  error-code,  defined  in  Section  IV,  identifies  the 
location  of  a word  into  which  ISP  is  to  store  an  error  code  following  a call 
to  certain  subroutines.  This  code  is  stored  into  the  right  half  of  error- 
code  as  three  6-bit  BCD  characters;  the  left  half  of  error-code  is  set  to 
zero.  The  defined  error  codes,  the  subroutines  that  may  encounter  the  cor- 
responding error  conditions,  and  descriptions  of  the  conditions  are  listed 
below. 


Error  Code  Subroutine 


000  All 

001-013  XCKPTP 

(octal) 

X01  GETIND 


X02  CHGREC 

DELREC 
GETRAN 
XREWND 

X02  GETIND 


X03  FILINT 


X04  GETSEQ 

XREWND 

X04  GETREC 

X07  ADDREC 


X09  NOPEN 

IOPEN 
LOPEN 

X10  NOPEN 

IOPEN 
LOPEN 


Description 

No  error  encountered. 

Error  in  taking  program  checkpoint.  Refer 
to  the  description  of  MME  GECHEK  in  the 
current  General  Comprehensive  Operating 
Supervisor  manual. 

An  attempt  has  been  made  to  "and"  or  "or" 
an  active  list  to  a work  file  list  when  in 
fact  no  ~ist  currently  exists  on  the  work 
file. 

A record  having  the  specified  ISP  key  value 
does  not  exist  in  the  file. 


No  records  containing  inverted  key  values 
which  satisfy  the  specified  criteria  were 
found  in  the  file. 

During  file  initialization,  a record  was 
encountered  with  an  ISP  key  value  less  than 
an  ISP  key  value  already  stored  in  the  file. 

During  sequential  processing,  the  ISP  end- 
of-file  record  was  encountered. 

No  more  record  addresses  remain  to  be  re- 
trieved from  the  work  file. 

The  ISP  key  value  of  a new  record  that  is 
to  be  added  to  the  file  already  exists  in 
the  file. 

Either  the  primary  data  file,  ISP  index 
file,  or  inverted  index  file  is  not  present. 


Either  the  primary  data  file,  ISP  index  file, 
or  inverted  index  file  is  not  a random  file. 
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Error  Code 

Subroutine 

Description 

XI 1 

IOPEN 

LOPEN 

The  ISP  index  file  and  primary  data  file 
do  not  match;  that  is,  they  were  not  ini- 
tialized at  the  same  time. 

X12 

NOPEN 

IOPEN 

LOPEN 

Either  the  ISP  index  file  or  the  primary 
data  file  is  already  open. 

V01 

ADDREC 

No  inverted  keys  are  defined  for  the  record 
type  of  the  record  to  be  added  to  the  file. 

V01 

CHGREC 

No  inverted  keys  are  defined  either  for  the 
record  type  of  the  record  that  is  to  re- 
place the  existing  record  or  for  the  record 
type  of  the  existing  record. 

V01 

DELREC 

No  inverted  keys  are  defined  for  the  record 
type  of  the  record  that  is  to  be  deleted. 

V02 

FILINT 

The  alternate  record  size  specified  by  the 
user  is  not  large  enough  to  contain  all  of 
the  inverted  keys  defined  for  the  record  to 
be  stored  in  their  data  record  orientation. 

V02 

ADDREC 

The  record  that  is  to  be  added  contains  an 
inverted  key  value  that  is  a duplicate  of 
a value  that  is  already  present  on  the  file, 
and  the  key  is  defined  as  UNIQUE. 

V02 

CHGREC 

The  record  that  is  to  replace  the  existing 

record  contains  an  inverted  key  value  that 
is  a duplicate  of  a value  that  is  already 
present  on  the  file,  and  the  key  is  defined 
as  UNIQUE, 
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SECTION  VI 


ABORT  MESSAGES 


When  ISP  encounters  an  unrecoverable  error  condition,  it  places  a de- 
scriptive message  on  the  execution  report  and  aborts  the  activity.  Some  of 
these  error  conditions  may  occur  only  during  the  processing  of  an  inverted 
file,  while  other  may  occur  during  the  processing  of  either  an  inverted  file 
or  a simple  ISP  file.  Only  the  abort  messages  specific  to  inverted  file 
processing  are  listed  in  this  section.  The  other  messages  may  be  found  in  the 
current  ISP  manual. 

In  the  listing  of  the  abort  messages  that  follow,  the  lower  case  letters 
fc  denote  an  actual  file  code.  The  lower  case  letters  nnnnnn  denote  a numeric 
value.  Depending  on  the  message,  this  value  may  represent  a record  size,  a 

page  size,  or  a page  number.  The  listing  of  each  message  is  followed  by  the 

action  that  must  be  taken  to  correct  the  error  condition. 

Message:  REQUIRED  INVERTED  FILE  SUBROUTINES  NOT  LOADED 

Action:  If  the  procedure  is  a build  procedure,  a call  or  SYMREF  to  INVBLD 

must  be  present.  If  the  procedure  is  an  update  procedure,  a call 
or  SYMREF  to  INVUPD  must  be  present. 

Message:  UNABLE  TO  GROW  INVFF  INDEX  FILE  'fc* 

Action:  Not  enough  file  space  has  been  allocated  for  the  inverted  index  file. 

If  the  inverted  file  is  being  built,  the  size  of  the  inverted  index 
file  must  be  increased  and  the  build  job  must  be  run  again.  If  an 
existing  permanent  file  is  being  updated,  the  file  must  first  be 

unloaded,  then  the  size  of  the  inverted  index  file  must  be  increased, 

and  finally,  the  file  must  be  reloaded.  Utility  XUTIL  can  be  used 
to  unload  and  reload  the  file.  These  procedures  are  necessary  be- 
cause ISP  does  not  "grow"  a permanent  file  beyond  its  current  size. 

Message:  NO  VALID  INVFF  RECORDS  INPUTTED  TO  SORT 

Action:  No  records  for  which  inverted  keys  are  defined  have  been  stored  by 

FILINT.  Possible  causes  are: 

1)  The  record  type  field  in  each  data  record  does  not  con- 
tain the  expected  value,  or 

2)  An  error  has  been  made  in  defining  the  record  type  field 
on  the  RECORD  descriptor  card,  or 

3)  An  error  has  been  made  in  specifying  the  pertinent  record 
types  on  the  KEY  descriptor  card. 

If  the  error  condition  was  caused  by  a descriptor  card  error,  it  is 
possible  to  unload  the  file  using  the  XUTIL  utility,  correct  the 
descriptor  card  error,  and  reload  the  file  via  XUTIL. 
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Message : 
Action: 

Message : 
Action : 


TOO  MANY  CALLING  ARGUMENTS 

It  is  not  possible  to  include  more  than  65  arguments  in  a CALL 
GETIND  statement.  Plac/  all  of  the  conditionals  in  a table  and 
use  Format  2 of  the  CALL  GETIND  (see  the  description  of  GETIND 
in  Section  IV) . 

UNABLE  TO  GROW  INVFF  WORK  FILE  ’fc’ 

Not  enough  space  has  been  allocated  for  the  work  file.  Increase 
the  size  of  the  work  file  and  rerun  the  program. 


SECTION  VII 


FILE  FORMATS 


The  information  contained  in  this  section  is  presented  as  an  aid  to  the 
analyst  in  the  diagnosis  of  problems  related  to  inverted  file  processing. 

DATA  AND  ISP  INDEX  FILE  FORMATS 


The  data  and  ISP  index  file  formats  for  an  inverted  data  base  are  identical 
to  those  for  a simple  ISP  data  base,  with  the  exception  of  the  following  modi- 
fication to  the  utilization  record  format: 


Word 

Bits 

Contents 

20 

0-17 

Effective  page  size  (product  of  actual  page  size 
and  percent  fill)  if  data  file. 

Number  of  words  required  to  hold  the 
its  data  record  orientation  if  index 

ISP  key  in 
file. 

18-35 

Unused 

INVERTED  INDEX  FILE  FORMAT 


There  are  seven  types  of  index  pages  which  may  be  present  in  an  inverted 
index  file.  The  seven  page  types  may  be  placed  in  four  categories  as  follows: 

a.  Control  pages  (page  types  00  and  01) 

b.  Key  definition  pages  (page  types  02  and  03) 

c.  Fine  index  pages  (page  types  05  and  06) 

d.  Coarse  index  pages  (page  type  04) 

The  control  pages  contain  file  management  information  and  utilization 
statistics  and  provide  a means  for  accessing  the  key  definition  pages  and 
the  coarse* and  fine  index  pages. 

The  key  definition  pages  contain  the  descriptions  of  all  inverted  keys. 

The  fine  index  pages  contain  all  of  the  inverted  key  values  that  are 
present  on  the  file  and  the  data  file  addresses  of  all  records  containing 
each  value.  Each  page  contains  information  about  one  key  only,  although  sev- 
eral pages  may  contain  information  about  the  same  key. 

The  coarse  index  pages,  if  any  exist  on  the  file,  contain  indices  to 
fine  index  pages  or  to  other  coarse  index  pages. 

All  fine  index  pages  are  defined  as  level  01  pages.  If  more  than  one 
fine  index  page  is  needed  to  contain  the  values  and  addresses  of  a given  key, 
a coarse  index  page  of  level  02  is  constructed  to  provide  an  index  to  all  of 
the  level  01  pages  for  that  key.  Similarly,  if  more  than  one  page  at  level  02 


/ 
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is  needed  in  order  to  index  all  level  01  pages  for  a given  key,  a level  03  page  is 
constructed  to  provide  an  index  to  all  level  02  pages.  Consequently,  several 
level  03  pages  may  be  indexed  by  a level  04  page,  and  so  on.  For  any  given 
key,  there  is  only  one  page  at  the  highest  level.  The  highest  level  page  for 
each  key  is  referenced  by  an  entry  on  one  of  the  control  pages. 

The  format  of  each  type  of  inverted  index  page  is  shown  below. 

Control  Pages 

FIRST  CONTROL  PAGE  - PAGE  TYPE  00 


Page  1 in  the  inverted  index  file  is  always  the  first  control  page  and 
has  the  following  format: 


Words 


5 

6 

7 

8 


Bits 

0-17 

18-35 

0-5 

6-17 

18-35 

0-17 

18-35 

0-17 

18-35 


0-17 

18-35 


Contents 

Page  number  (will  always  be  1) 

Number  of  words  used  on  this  page,  not 
including  the  first  word 

Page  type  (00) 

Number  of  keys  defined  for  the  file 

Size  in  words  of  inverted  index  page 

Page  number  of  the  first  reusable  inverted 
index  page 

Total  number  of  reusable  inverted  index 
pages 

Number  of  control  pages 

Number  of  key  definition  pages 

Date  of  initial  load  (in  BCD) 

Time  of  initial  load  (in  clock  pulses  since 
previous  midnight) 

Date  of  most  recent  update  (in  BCD) 

Time  of  most  recent  update  (in  clock  pulses 
since  previous  midnight) 

Number  of  pages  allocated  for  inverted  in- 
dex file 

Number  of  pages  used  in  inverted  index  file 


7-2 


Words 


Bits 


Contents 


10 

0-17 

Length  in  characters  of  longest  key 

18-35 

Effective  page  size  (product  of  actual 
page  size  and  percent  fill) 

11 

0-17 

Unused 

18-35 

Total  number  of  llinks  allocated  for  in- 
verted index  file 

12 

0-17 

Unused 

18-35 

Number  of  control  entries  on  this  page 

13-16 

Control  entry  #1 

17-20 

Control  entry  112 

• 

OTHER  CONTROL  PAGES  - PAGE  TYPE  01 

• 

All  control 

pages  except  the 

first  have  the  following  format: 

Words 

Bits 

Contents 

1 

0-17 

Page  number 

18-35 

Number  of  words  used  on  this  page,  not 
including  the  first  word 

2 

0-5 

Page  type  (01) 

6-17 

Page  number  of  this  page  in  sequence  with 
other  control  pages 

18-35 

Number  of  control  entries  on  this  page 

3-6 

Control  entry  //M+l  (where  M is  the  total 
number  of  control  entries  on  all  previous 
control  pages) 

7-10 

Control  entry  //M+2 

11-14 

Control  entry  //Mf 3 

CONTROL  ENTRY 


There  exists  one  control  entry  for  each  inverted  key  defined  for  the 
file.  Each  control  entry  contains  the  following  information. 

Words 

Bits 

Contents 

n 

0-17 

Page  number  of  the  highest  level  page  for 
this  key 

18-35 

Highest  level  number 

n+1 

0-17 

Key  number  (as  defined  on  KEY  descriptor 
cards) 

18-35 

Number  of  pages  in  inverted  index  file  con- 
taining information  about  this  key  (page 
types  04,  05,  06) 

n+2 

Number  of  unique  key  values  in  data  file  for 
this  key 

n+3 

Total  number  of  key  values  in  data  file  for 
this  key 

Key  Definition  Page 

s 

FIRST  KEY  DEFINITION  PAGE  - PAGE  TYPE  02 

The  first  key 

definition 

page 

has  the  following  format: 

Words 

Bits 

Contents 

1 

0-17 

Page  number 

18-35 

Number  of  words  used  on  this  page,  not 
including  the  first  word 

2 

0-5 

Page  type  (02) 

6-17 

Unused 

18-35 

Number  of  words  in  key  definition  table 

3 

EIS  descriptor  of  record  type  field  (=0  if 
no  record  type  field  is  defined) 

4 

EIS  descriptor  of  ISP  key  field 

5 

0-17 

Zero 

18-35 

Number  of  RECORD  entries  in  key  definition 
table 

6 

0-17 

Word  offset  to  first  KEY  entry  in  key  defi- 
nition table,  from  beginning  of  table 

Words  Bits  Contents 

18-35  Number  of  KEY  entries  in  key  definition 

table 

The  remaining  words  on  the  page  (not  counting  those  words  not  filled 
due  to  the  percent  fill  restriction)  are  filled  with  entries  from  the  key 
definition  table.  If  more  key  definition  entries  exist  than  can  fit  on  one 
page,  the  remaining  entries  are  placed  on  one  or  more  type  03  pages. 

OTHER  KEY  DEFINITION  PAGES  - PAGE  TYPE  03 


All  key  definition  pages  except  the  first  have  the  following  format: 


Words 

Bits 

Contents 

1 

0-17 

Page  number 

18-35 

Number  of  words  used  on  this  page,  not  in- 
cluding the  first  word 

2 

0-5 

Page  type  (03) 

6-17 

Page  number  of  this  page  in  sequence  with 
all  other  key  definition  pages 

18-35 

Unused 

The  remaining  words  on  the  page  (not  counting  those  words  not  filled  due 
to  the  percent  fill  restriction)  are  filled  with  entries  from  the  key  defini- 
tion table.  If  more  key  definition  entries  exist  than  can  fit  on  one  page, 
the  table  is  overflowed  onto  a subsequent  key  definition  page. 

KEY  DEFINITION  TABLE 

The  key  definition  table  is  a core  table  which  contains  the  definitions 
of  the  inverted  key  fields  and  the  types  of  records  for  which  the  keys  are 
defined.  The  table  is  built  when  the  file  is  initialized  by  KINIT  or  NOPEN. 
When,  in  the  initialization  program,  the  file  is  closed  by  ICLOSE,  entries 
from  the  key  definition  table  are  written  to  the  key  definition  pages.  Each 
subsequent  time  the  file  is  opened,  the  table  is  read  back  into  core.  The 
key  definition  table  is  made  up  of  five  types  of  entries:  RECORD,  KEY,  FIELD, 
Key  In  Record  (KIR) , and  Field  In  Key  In  Record  (FIKIR) . The  chart  below  shows 
the  physical  positioning  of  the  entries  in  the  table. 


The  individual  entries  are  logically  associated  with  each  other  by 
way  of  an  IDS-like  chain  structure  as  shown  below: 


The  chart  below  shown  the  notation  used  in  the  descriptions  of  the  entry 
formats : 


Notation 
FZ  head 
FZ  next 
KX  head 
KX  next 
RF  head 
RF  next 
RX  head 
RX  next 
XZ  head 
XZ  next 


Meaning 

Pointer  back  to  FIELD  entry  from  FIKIR  entry* 

Pointer  to  next  FIKIR  entry  for  specific  field* 
Pointer  back  to  KEY  entry  from  KIR  entry* 

Pointer  to  next  KIR  entry  for  specific  key* 

Pointer  vack  to  RECORD  entry  from  FIELD  entry* 

Pointer  to  next  FIELD  entry  for  specific  record  type* 
Pointer  back  to  RECORD  entry  from  KIR  entry* 

Pointer  to  next  KIR  entry  for  specific  record  type* 
Pointer  back  to  KIR  entry  from  FIKIR  entry* 

Pointer  from  KIR  entry  to  associated  FIKIR  entry* 


* Values  located  in  these  pointer  fields  are  offsets  to  the  entry  from  the 
beginning  of  the  key  definition  table. 
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RECORD  Entry 


There  is  one  RECORD  entry  in  the  key  definition  table  for  every  record 
type  specified  on  one  or  more  KEY  descriptor  cards.  If  there  is  no  record 
type  field  defined  for  the  file,  then  all  records  are  considered  to  be  of  the 
same  record  type  (i.e.,  record  type  zero).  A RECORD  entry  is  four  words  in 
length  and  contains  the  following  information  about  a given  type  of  record: 


Words 

Bits 

Contents 

1-2 

Record  type  as  specified  on  KEY  descriptor 
cards,  left-justified,  blank-filled. 

3 

0-17 

Number  of  words  required  to  hold  all  in- 
verted keys  defined  for  this  type  of  record 
in  their  orientation  in  the  data  record. 

18-35 

Unused 

4 

0-17 

RF  next 

18-35 

RX  next 

KEY  Entry 

There  is  one  KEY  entry  in  the  key  definition  table  for  each  inverted 
key  defined  for  the  file.  A KEY  entry  is  two  words  in  length  and  contains 
the  following  information  about  a given  inverted  key: 

Words 

Bits 

Contents 

1 

0-17 

Key  number,  as  specified  by  the  KEYNO  para- 
meter on  KEY  descriptor  cards 

18 

If  bit  is  on,  key  is  defined  as  UNIQUE 

19 

Unused 

20 

If  bit  is  on,  a null  character  is  defined 
for  this  key 

21-29 

Unused 

30-35 

If  bit  20  is  on,  these  bits  contain  the 
null  character  defined  for  this  key 

2 

0-17 

Key  size  in  characters 

18-35 

KX  next 

7-7 


FIELD  Entry 


There  is  one  FIELD  entry  in  the  key  definition  table  for  each  field  in 
each  type  of  record  defined  as  participating  in  an  inverted  key.  Unless  a 
given  field  in  a given  record  type  participates  in  more  than  one  key,  the 
number  of  FIELD  entries  in  the  table  will  be  equal  to  the  number  of  KEY  cards 
on  the  descriptor  file  at  initialization  time,  A FIELD  entry  is  three  words 
in  length  and  contains  the  following  information  about  a given  inverted  key 
field: 


Words 

Bits 

Contents 

1 

EIS  descriptor  of  the  field 

2 

0 

If  bit  is  on,  field  contains 

SIGNED 

data 

1-17 

Unused 

18-35 

FZ  next 

3 

0-17 

RF  head 

18-35 

RF  next 

Key  In  Record  (KIR) 

Entry 

The  Key  In  Record  (KIR)  entries  serve  as  connectors  between  the  KEY  and 
the  RECORD  entries,  allowing  the  inverted  processor  *-o  find  all  of  the  in- 
verted keys  associated  with  a given  record  type  and  vice  versa.  There  is  one 
KIR  entry  in  the  key  definition  table  for  each  KEY  card  on  the  descriptor 
file  at  initialization  time.  A KIR  entry  is  three  words  in  length  and  con- 
tains the  following  information: 

Words 

bits 

Contents 

1 

0-17 

Unused 

18-35 

XZ  next 

2 

0-17 

RX  head 

18-35 

RX  next 

3 

0-17 

KX  head 

18-35 

KX  next 

Field  In  Key  In  Record  (FIKIR)  Entry 

The  Field  In  Key  In  Record  (FIKJR)  entries  serve  as  connectors  between 
the  FIELD  and  KIR  entries,  allowing  the  inverted  processor  to  associate  each 
inverted  key  field  with  the  keys  in  which  it  participates,  and  vice  versa. 
There  is  one  FIKIR  entry  in  the  key  definition  for  each  KEY  card  on  the  de- 
scriptor card  at  initialization  time.  A FIKIR  entry  is  two  words  in  length 
and  contains  the  following  pointers: 
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Words 


Bits 


Contents 


r 


1 

0-17 

FZ  head 

18-35 

FZ  next 

2 

0-17 

XZ  head 

18-35 

XZ  next 

Coarse  Index  Pages  ■ 

- Page  Type 

04 

Shown  below  is 

the  format 

of 

a coarse  index  page. 

Words 

Bits 

Contents 

1 

0-17 

Page  number 

18-35 

Number  of  words  used  on  this  page,  not  in- 
cluding the  first  word 

2 

0-5 

Page  type  (04) 

6-17 

Key  number 

18-35 

Unused 

3 

0-17 

Number  of  entries  on  this  page 

18-35 

Number  of  characters  in  each  entry  (size  of 
key  field  + 3 characters  for  a page  number) 

4 

0-17 

Page  number  of  the  page  at  the  next  higher 
level  which  contains  a reference  to  this 
page.  If  this  page  is  the  page  of  the 
highest  level  for  this  key,  the  field  will 
contain  zeroes. 

18-35 

Level  number  of  this  page 

The  remaining  words  on  the  page  (not  counting  those  words  not  filled 
due  to  the  percent  fill  restriction)  are  filled  with  type  04  index  entries, 
which  are  described  below.  If  more  entries  exist  than  can  fit  on  one  page, 
then,  assuming  that  the  original  page  has  a level  number  of  n (n  > 2),  the 
other  entries  are  placed  on  subsequent  type  04  pages  also  of  level  n.  A 
type  04  page  of  level  n+1  is  then  created  to  serve  as  an  index  to  the  level  n 
pages  for  this  key. 

INDEX  ENTRY 

Each  type  04  index  entry  for  a specific  key  is  k + 3 characters  in 
length,  where  k is  the  size  in  characters  of  the  inverted  key  field.  Assuming 
the  type  04  page  on  which  a certain  entry  resides  has  a level  number  of  n 
(n  >2),  then  the  field  comprised  of  the  last  three  characters  of  that  entry 
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contains  the  page  number  of  a page  at  level  n-1  (note  that  level  05  and  06 
pages  have  a level  number  of  1).  The  first  k characters  of  the  entry  con- 
tain the  greatest  key  value  for  which  an  entry  may  be  found  on  the  level 
n-1  page. 

Fine  Index  Pages 

FINE  INDEX  PAGES  FOR  UNIQUE  KEYS  - PAGE  TYPE  05 


Shown  below 

is  the  format  of 

a type  05  page. 

Words 

Bits 

Contents 

1 

0-17 

Page  number 

18-35 

Number  of  words  used  on  this  page,  not 
including  the  first  word 

2 

0-5 

Page  type  (05) 

6-17 

Key  number 

18-35 

Page  number  of  next  type  05  page  for  this 
key  (zero  if  this  is  the  last  page  for  this 
key) 

3 

0-17 

Number  of  entries  on  this  page 

18-35 

Number  of  characters  in  each  entry  (size  of 
key  field  + 6 characters  for  a data  file 
address) 

4 

0-17 

Page  number  of  the  type  04,  level  2 page 
which  contains  a reference  to  this  page. 

If  there  are  no  type  04  pages  for  this  key, 
the  field  will  contain  zeroes. 

18-35 

Unused 

The  remaining  words  on  the  page  (not  counting  those  words  not  filled 
due  to  the  percent  fill  restriction)  are  filled  with  type  05  index  entries, 
which  are  described  below.  If  more  entries  exist  than  can  fit  on  one  page, 
the  other  entries  are  placed  one  or  more  subsequent  type  05  pages,  and  a 
type  04,  level  2 page  is  created  to  serve  as  an  index  to  all  type  05  pages 
containing  information  about  the  same  key, 

TYPE  05  INDEX  ENTRIES 

Each  type  05  index  entry  for  a specific  key  is  k+6  characters  in  length, 
where  k is  the  size  in  characters  of  the  inverted  key  field.  The  first  k 
characters  contain  a key  value  present  on  the  file,  while  the  field  comprised 
of  the  last  6 characters  contains  the  data  file  address  (line  and  page  number) 
of  the  record  which  contains  that  key  value. 


-f.-JT'"'-  — — yw  y 
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» FINE  INDEX  PAGES  FOR  NON-UNIQUE  KEYS  - PAGE  TYPE  06 

1 Shown  below  is  the  format  of  a type  06  page. 


Words 

Bits 

Contents 

l 1 

0-17 

Page  number 

\ ’ 

L 

18-35 

Number  of  words  used  on  this  page,  not  in- 
cluding the  first  word 

2 

0-5 

Page  type  (06) 

6-17 

Key  number 

18-35 

Page  number  of  next  type  06  page  for  this 
key  (zero  if  this  is  the  last  page  for  this 
key) 

3 

0-17 

Number  of  entries  on  this  page 

18-35 

Number  of  characters  in  each  entry  (size  of 
key  field  + 6 characters) 

4 

0-17 

Page  number  of  the  type  04,  level  2 page  which 
contains  a reference  to  this  page.  If  there 
are  no  type  04  pages  for  this  key,  the  field 
will  contain  zeros. 

18 

Value  continuation  bit.  If  this  bit  is  on, 
then  the  data  file  addresses  for  the  last 
key  value  on  this  page  are  continued  onto 
another  page. 

19-35 

Number  of  data  file  addresses  on  this  page. 

The  remaining  words  on  the  page  are  allocated  as  follows:  type  06  index 
entries  are  written  forward  from  word  5,  and  data  file  addresses  are  written 
backward  from  the  end  of  the  page.  Any  unused  words  are  between  the  last 
index  entry  and  the  last  data  file  address.  The  relationship  between  the 
index  entries  and  the  data  file  addresses  is  explained  below. 

TYPE  06  INDEX  ENTRIES 

For  a key  defined  as  non-unique,  each  key  value  may  exist  in  one  or  more 
records  on  the  file.  Type  06  entries  are  organized  as  follows: 

1.  There  exists  one  index  entry  corresponding  to  each  distinct  key 
value  present  on  the  file  (unless  bit  18  of  word  4 is  on,  in 
which  case  the  next  type  06  page  for  the  key  will  contain  a "con- 
tinuation entry"  for  the  key  value  found  in  the  last  entry  on  the 
current  page  ) , 
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2.  If  k is  the  size  of  the  key  in  characters,  then  the  first  k char- 
acters of  each  entry  contain  a key  value  present  on  the  file. 


3.  The  18-bit  field  comprised  of  characters  k+4  through  k+6  of  each 

entry  contains  the  total  number  of  data  file  addresses  on  this  page 
corresponding  to  the  key  value  in  characters  1 through  k.  The 
18-bit  field  comprised  of  characters  k+1  through  k+3  of  the  entry 
> , contains  the  word  offset  from  word  one  of  the  index  page  to  the 

j first  (last  physically)  of  such  data  file  addresses. 

DATA  FILE  ADDRESSES 

Each  data  file  address  occupies  one  word  of  storage  on  the  index  page  and 
consists  of  the  line  number  (bits  0-17)  and  the  page  number  (bits  18-35)  of  a 
record  on  the  data  file  which  contains  the  specified  key  value. 


APPENDIX  A 


PROGRAMMING  EXAMPLES 


This  appendix  consists  of  an  example  of  a job  which  utilizes  the 
Inverted  File  Facility.  The  job  consists  of  three  COBOL  programs;  the 
first  program  builds  a new  inverted  file,  the  second  program  retrieves 
records  from  the  file,  and  the  third  program  updates  the  file. 

Figure  A-l  contains  the  GCOS  control  cards  and  the  COBOL  source  pro- 
grams for  the  job.  Figure  A-2  contains  the  output  produced  by  the  build 
program.  Figure  A-3  contains  the  output  produced  by  the  retrieval  pro- 
gram. Figure  A-4  contains  the  output  produced  by  the  update  program. 
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I D E N T 
OPT  I ON 
USE 
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DMS03,TA  i>l  Q Y 
CG30L 

.XtiUFI  / A 0 n0/  , . X3J  F 2 / 2 / 
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PROG  RAM- ID.  6LDINV. 
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REMARKS,  THIS  P R 0 G k A M a U I IDS 

FOR  USE  IN  THE  INVERTED  FILE  TEST  PACKAGE. 
ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  6000  WITH  EIS. 

OBJECT-COMPUTER.  6000  wITH  EIS. 

INPUT-OUTPUT  SECTION. 

F ILE-CONTROL. 


AN  INVERTED  FILE 


WORK ING- STORAGE  SECTION. 

77  DESC-F  ILE-CODE  PICTURE 

77  DATA-FILE-CODE  PICTURE 

77  REC-SIZE  PICTURE 

01  INV-RECORD. 

02  ISP -KEY  PICTURE 

02  REC-TYPE  PICTURE 

02  EMP-NO-IN-REC  PICTURE 
02  REST-OF-RECORD  PICTURE 
02  RE ST-OF-RE C- R REDEFINES 
03  SALARY-R  PICTURE 

03  FILLER  PICTURE 

PROCEDURE  DIVISION. 
n10- START. 

OPEN  INPUT  INP-FILE 


XX  VALUE  "DC". 

X X . 

9(6)  COMPUTAT I ONAL-1  VALUE  0. 

9(6)  VALUE  0 . 

X . 

9(A). 

X ( 73)  . 

REST-OF-RECORD. 

9 ( A ) V 9 9 . 
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OUTPUT  PRT-FILE, 


OL'GOGG 
OOGCJGC 
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000001 

000001 

000001 

000001 

000001 
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m 

000001 
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000001 

I -0- 

CONTROL. 

000001 

APPLY  STANDARD  ON 

INP-FILE, 

PRT-FILE. 

000001 

DATA 

DIVISION. 

000002 

FILE 

SECTION. 

000002 

F D 

P R T- 

FILE 

000002 

LABEL  RECORDS  ARE 

STANDARD 

000002 

DATA 

RECORD  IS  PRT 

-LINE. 

000002 

01 

PRT- 

LINE. 

000002 

02 

PR  -1 

PICTURE 

X ( 1 0)  . 

000002 

02 

PR  -2 

PICTURE 

X ( 16)  . 

000002 

02 

PR-3 

PICTURE 

X ( 10)  . 

000002 

0 2 

PR  - A 

PICTURE 

X ( 6A  ) . 

000002 

F D 

I NP- 

FILE 

000003 

LA3EL  RECORDS  ARE 

STANDARD 

000003 

DATA 

RECORD  IS  IMP 

-record. 

000003 

01 

I N P - 

RECORD. 

000003 

02 

EM  P-NO 

PICTURE 

9(A). 

000003 

02 

NAME-AND-D AT E. 

000003 

03  NAME- IN 

PICTURE 

X ( 20)  . 

000003 

03  DATE-EMP 

PICTURE 

9(6)  . 

000003 

02 

SALARY 

PICTURE 

9( A) V99. 

000003 

02 

VACATION 

PICTURE 

9(3). 

000003 

02 

SICK 

PICTURE 

S 9 9 . 

OOOOOA 

02 

FI LLER 

PICTURE 

X ( 39)  . 

OOOOOA 

OOOOOA 
OOOOOA 
OOOOOA 
OOOOGA 
OOOOOA 
OOOOOA 
OOOOOA 
OOOOOA 
G00G05 
OOOOOS 
0 00  00  5 
000005 
OOOOG5 
OOOOOs 
000005 
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Figure  A-l.  Job  to  Build,  Retrieve  from,  and 
Update  an  Inverted  File 

A- 2 


UNCLASSIFIED 


DATE  >19-16-77 


UNCLASSIFIED 


L S T 3 J 0?  19-16-77 


09.919 


L S T P U - LISTING  OF  UCD  CARDS  NUMBER 


01  uF 


CALL  INVdLD. 

CALL  NOPEN  USING  INV-RECORD,  D A T A - F I L E - C OD E , D E S C - F I L E -C 0 D i 
MOVE  ” ******  " TO  PR-1, PR -3. 

MOVE  "RECORD  STORED"  TO  PR-2. 

121-PROCESS-CARDS. 

READ  IMP-FILE  INTO  INP-RECORD 

AT  END  GO  TO  13  0- E NO- 0 F - I NPU  T . 

MOVE  EMP-NO  TO  EMP-NO-IN-REC . 


FORM  A TYPE  "1"  EMPLOYEE  NAME  RECORD  AND  STORE  IT, 

ADD  10  TO  ISP-KEY. 

MOVE  "1"  TO  REC-TYPE. 

MOVE  NAWE-AND-DATE  TO  REST-OF-RECORD. 

CALL  FILINT  USING  DATA-FILE-COOE. 

MOVE  I NV-RECORD  TO  PR-4. 

WRITE  PRT-LINE  AFTER  ADVANCING  2 LINES. 

FORM  A TYPE  "2"  VACATION  RECORD  AND  STORE  IT. 

ADD  10  TO  I SP-KE  Y. 

MOVE  "2"  TO  REC-TYPE. 

MOVE  VACATION  TO  REST-OF-RECORD. 

CALL  FILINT  USING  D AT  A - F I L E - C 0 D E . 

MOVE  I NV-RECORD  TO  PR -4. 

WRITE  PRT-LINE  AFTER  ADVANCING  2 LINES. 

FORM  A TYPE  "3"  SICK-TIME  RECORD  AND  STORE  IT. 

ADD  10  TO  ISP-KEY. 

MOVE  "3"  TO  REC-TYPE. 

MOVE  SICK  TO  REST-OF-RECORD. 

CALL  FILINT  USING  D AT A-F I LE-CC DE . 

MOVE  I NV-RECORD  TO  PR-4. 

WRITE  PRT-LINE  AFTER  ADVANCING  2 LINES. 


FORM  A TYPE 


SALARY  RECORD  AND  STORE  IT. 


ADD  10  TO  ISP-KEY. 

MOVE  "4"  TO  REC-TYPE. 

MOVE  SALARY  TO  SALARY-R. 

CALL  FILINT  USING  DATA-FILE-CODE. 

MOVE  INV-RECORD  TO  PR-4. 

WRITE  PRT-LINE  AFTER  ADVANCING  2 LINES. 
GO  TO  020-PROCESS-CAR DS. 
03O-END-OF-INPUT. 

CLOSE  INP-FILE  PRT-FILE. 

CALL  I CLOSE  USING  DATA-FILE-CODE. 


0 00 00 5 
00000s 

00000 s 
000006 
OOCOOo 
000006 
C GO  00  6 
OQOOOo 
0 u 3 00  o 
OOCOOo 
C0C006 
000006 
000006 
000007 
000007 
000007 
000007 
00000  7 
000007 
000007 
000007 
000007 
000007 
000006 
00000c 
00000b 
OOQOOd 
00000b 
000006 
00000c 

00000b 
000006 
000006 
000009 
000009 
000009 
000009 
000009 
000009 
000009 
000  009 
000009 
000009 
000010 
00001 0 
COO  01  0 
COO  01  L 
0 00  01  0 


STOP 

RUN. 

00001 0 

s 

EXECUTE 

DUMP 

000010 

$ 

LIMITS 

,30k,—  2k 

00001 c 

$ 

data 

DC 

00001 c 

I NVF  F 

I NDE  X 

F C = A A 

00001 c 

I NVF  F 

I NDX  2 

F C=  CC 

00001  1 

I NVF  F 

DATA 

X 

•1 

t_D 

U_ 

00001  1 

I VVF  F 

SORT  FL 

FC  = FS 

00001 1 

Figure  A-l 

(Cont.)  Job  to  Build,  Retrieve  from. 

USERID 

opnsutil 

and  Update  an  Inverted  File 

UNCLASSIFIED 

A- 3 


0 A T £ 


0*3-1  6-77 


UN CLASS  IF  I ci) 


L S T ? J 

02  09-1  o 

-77 

09.919  LSTPU  - LISTING  OF  bCO  CARDS  NUMdEk 

01  UF 

I NVF  F 

RECORD 

RE  C S Z = 

14/<EYSZ=6,RTYPSZ=1,RTYP0FF=6 

00001  1 

I NVF  F 

KEY 

KE  YNO  = 

1,KEY5Z=4,<EYOFF=7/RTYPE=1 

00001  1 

I NVF  F 

KEY 

KE  YNO  = 

2/KEYSZ=20/KEY0FF=11/UNIQJE/RTYPE=1 

00001 1 

I NVF  F 

KEY 

KE  YNO  = 

3/KE  YS  Z-6/K  E YGF  F = 3 1 /NULL-JLANK 

00001  1 

INVFF 

ETC 

RT  Y P E = 

1 

00001 1 

I NVF  F 

KEY 

K E Y N 0 = 

1,<EYSZ=4/<EY0FF=7,RTYPE=2 

00001 1 

INVFF 

KEY 

KE  YMO  = 

4/KEYSZ=3,<EY0FF=11,RTYPE=2 

00001  1 

INVFF 

KEY 

KE  YNO  = 

1/KEYSZ=4/<EYOFF=7,RTYPE=3 

00001 2 

INVFF 

KEY 

key  nc= 

5,<EYSZ=2,KEY0FF=11,SIGNED,RTYPE=3 

00001  2 

INVFF 

KEY 

KE  YNO  = 

1,KEYSZ=4/<EY0FF=7,RTYPE=4 

00001 2 

i 

F ILE 

A A * X 1 S 

/ 1 R 

00001 2 

S 

F ILE 

83,X?S 

,2R 

00001  2 

$ 

FILE 

C C * X 3 S 

/ 2R 

00001  2 

$ 

F ILE 

SI /X4R 

/ 3 R 

00001 2 

S 

F ILE 

F S x X 5 R 

/ 1L 

00001  2 

% 

DATA 

IN 

00001 2 

0 2 0 0 F £ 

RGIL  SMERD 

01057210000020302 

00001 2 

0201  HI LRO  DEEGO 

01 1 5721050001 2621 

00001  3 

0202 JAH  STABO 

1 1 000036558 

00001 3 

07Q3AFRE  HILL 

03067211 500041710 

00001  3 

0 2 0 4 D £ 

M R 0 TUFF 

2000001 6287 

00001  3 

3 2 0 5 S A M RILS 

03317220500022494 

00001 3 

020634CKRUS  TUJAL 
3207SMIRN0  GILTO 
0203FELIX  DEM  ROY 
0209TJLFORD  SNUFF 


22 030064  663 
051 47223000044389 
3 5 GOOD  7 5 2 9 6 
07037237000062832 


S YSOUT 
BREAK 
OPT  I ON 
USE 
C 030  L 


PR 


COBOL 

.XBUF 1 / 4000/  /. X3U  F 2/2 / 

ND  ECK 

IDENTIFICATION  DIVISION. 

PROGRAM-ID.  INVRET. 

REMARKS.  THIS  PROGRAM  ATTEMPTS  TO  RETRIEVE  ALL  OF 
FROM  THE  INVERTED  DATA  FILE  CREATED  IN  THE 
ACTIVITY. 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  6000  WITH  EIS. 

OBJECT-COMPUTER.  6000  WITH  EIS. 

INPUT-OUTPUT  SECTION. 

F ILE-CONTROL. 

SELECT  PRINT-FILE  ASSIGN  TO  PR  FOR  LISTING. 
I-O-CONTROL. 

APPLY  STANDARD  ON  PRINT-FILE. 

DATA  DIVISION. 

FILE  SECTION. 

FD  PRINT-FILE 

LABEL  RECORD  IS  STANDARD 
DATA  RECORD  IS  PRINT-LINE. 

01  PRINT-LINE. 

02  HEADER-FIELD  PICTURE  X(20). 

02  OUT-RECORD  PICTURE  X(84>. 

WORKING-STORAGE  SECTION. 

77  DESC-F  ILECOOE  PICTURE  XX  VALUE  "DF". 

77  DATA -E  ILECOOE  PICTURE  XX. 

Figure  A-l  (Cont.)  Job  to  Build,  Retrieve  from, 
and  Update  an  Inverted  File 

A- 4 


THE  RECORDS 
PREVIOUS 


00001 3 
00001 3 

0 00  01  3 

00001  3. 
00001  3 
00001 4 
00001  4 
00001  4. 
00001 4 
00001 4 
00001  4 
00001  4, 
00001 4 
00001  4 
00001 4 
00001 5 
00001 5 
00001  5. 
00001  5 
00001  5 
00001  5 
00001 5 
00001  5 
00001  5 
00001  5 
00001 o 
00001  6 
00001 o 
00001  6 
00001  6 
00001  6 
00001 o 
00001b 
000016 


USERID  OpN  SU  T I L 


UNCLASSIFIED 


0 9-16 

-77 

UNC  LASS  1 F I ED 

0?  09-16-77  09.919 

LS  T PU  - 

LISTING  OF  uCO  CARDS 

NUMBER 

o 

—A 

c 

~n 

77 

DUAL  IF  I ED-RECORDS 

P I CURE 

9(6)  . 

00001 o 

77 

OPTION-CODE 

PICTURE 

9 (6)  VALUE  1 . 

00001  7 

77 

KEY-NO-1 

PICTURE 

9(6)  COMPUT AT  I ONAL-1 

VALUE 

1.  000017 

77 

REL-CODE-1 

PICTURE 

9(6)  CGMPU TAT  I UNAL-1 

VALUE 

2.  000017 

77 

key-value-i 

PICTURE 

X ( 4 ) VALUE  "0203". 

00001  7 

77 

<E  Y-fJO-2 

PICTURE 

9(6)  C 0 M P U T A T I ON  A L - 1 

VALUE 

3.  000017 

77 

REL-CO  DE-2 

P I CTU  RE 

9(6)  COMPUTaT I onal-i 

VALUE 

4 . 00001  7 

77 

KEY-VALUE-7 

PICTURE 

X ( 6 ) VALJE  "040172". 

00001  7 

77 

ERROR-CODE 

PICTURE 

X (6)  . 

00001  7 

38  END-O-FILE 

VALUE  " 

000X04". 

00001 7 

88  NO-LISTS 

VALUE  " 

000X01 ". 

00001  7 

01 

INVERT-REC  . 

00001 3 

02  ISP-KEY 

P I CTURE 

9(6)  VALUE  0. 

00001  o 

02  REC-TYPE 

PICTURE 

X . 

C0001 3 

02  EMPLOY-NUMBER 

PICTURE 

9(4). 

00001 o 

02  REST-OF-RECORD 

PICTURE 

X ( 73)  . 

00001  a 

PROCEDURE  DIVISION. 

00001  a 

OPEN 

-FILES. 

00001  8 

OPEN  OUTPUT  PRINT 

-FILE. 

00001  o 

CALL  INVUPD. 

000013 

CALL  I OPEN  USING 

INVERT-REC 

/DATA-FIL5C0DE/DESC-FILEC0DE 

. 0 00  01  o 

RETRIEVE-RECORDS. 

00001  9 

★ 

00001  9 

* RETRIEVE  THE  RECORDS 

OF  all  employees  having  An 

00001 9 

* EMPLOYEE  NUM3ER  GREATER  THAN  OR  EQUAL  TO  0203 

00001  9 

* AND 

HIRED  BEFORE  040172 

G0001 9 

★ 

00001  9 

$ 

s 

$ 

I N V F F 
I NVF  F 
I NVF  F 
INVFF 

% 

i 

l 

% 


C- 


CALL  GETIND  USING  0 AT  A - F I L E C 0 D E / E RR 0 R - C 0 0 E / Q U A L I F I E D -R EC  0 R D S / 0 00 01  9 
OPTION-CODE/  KEY-NO-1/  kEL-CODE-1/  KEY-VALUE-1/  00001  9 

KEY-NO-?/  REL-CODE-2/  KEr-VALUE-2.  00001  9 

IF  NO-LISTS  GO  TO  END-UP.  000019 

GET- A-RECORD.  000020 

CALL  GETREC  USING  D AT  A - F I LE C 0 D E / E R RO R - C 0 D E . 000020 

IF  END-O-FILE  GO  TO  END-UP.  000020 

MOVE  INVERT-REC  TO  OJT-RECORD.  000020 

MOVE  "RECORD  RETRIEVED"  TO  H E A D E R - F I E L D . 000020 

WRITE  PRINT-LINE  AFTER  ADVANCING  2 LINES.  000020 

GO  TO  GET-A-RECORD . 000020< 

END-UP.  000020 

MOVE  "END  OF  FILE"  TO  H E A D E R - F I E L D . 000020 

MOVE  SPACES  TO  OUT-RECORD.  000020 

WRITE  PRINT-LINE  AFTER  ADVANCING  2 LINES.  000021 

CLOSE  PRINT-FILE.  000021 

CALL  I CLOSE  USING  D A T A- F I L E C 0 D E . 000021 

STOP  RUN.  000021 

EXECUTE  DUMP  000021 

LIMITS  /30K/-2.K  00C021 

DATA  DF  000021 

INDEX  F C = A A 00002  1 

I NDX  2 F C = C C 00002 1 

DATA  FC  = Ub)  000021 

WORK  FL  FC=WW  000022 

FILE  AA/X1S/1R  000023 

FILE  0B/X2S/1R  000023 

FILE  CC/X3S/2R  000023 

FILE  WW/X6S/1R  000023 

Figure  A-l  (Cont.)  Job  to  Build,  Retrieve  from, 

0 NSUTIL  ^ ancj  Update  an  Inverted  File  UNCLASSIFIED 

A-5 


USERID  OPNSJTIL 


UNCLASS  IF  I Ei 


DATE  09-16-77 


UNCLASSIF  Itti 


L S T 3 U 03  09-1  6-7  7 0 7.919  LSTPU  - LISTING  OF  BCD  CAROS  NUMBER  01  OF 


t 

S 

I 

$ 

S 


SYSOUT  PR 
BREAK 

OPTION  COBOL 

USE  .XBUF1  /4000/ ,. XBU F 2/2  / 

COBOL  NDECK 
IDENTIFICATION  DIVISION. 

P ROG RAM- ID . UPDINV. 

♦ 

* THIS  PROGRAM  PROCESSES  UPDATE  TRANSACTIONS  AGAINST  THE 

* INVERTED  FILE  BUILT  IN  THE  PREVIOUS  ACTIVITY.  A TRANSACTION 

* CONSISTS  OF  T NO  CARD  IMAGES.  THE  FIRST  CONTAINS  ONE  OF  THE 

* WORDS  'ADD'/  'CHANGE',  OR  'DELETE',  STARTING  IN  COLUMN  1. 

* THE  SECOND  CONTAINS  THE  ENTIRE  NEW  RECORD  IN  THE  CASE  OF 

* AN  'ADD'  CR  'CHANGE'  TRANSACTION,  AND  A KEY  VALUE  I N THE 

* CASE  OF  A 'DELETE'  TRANSACTION.  A REPORT  IS  PRODUCED  WHICH 

* CONTAINS  EACH  RECORD  PROCESSED  AND  A STATEMENT  OF  THE  ACTION 

* TAKEN. 


ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  6000  WITH  EIS. 

OBJECT-COMPUTER.  6000  WITH  EIS. 

INPUT-OUTPUT  SECTION. 

F ILE-CONTROL. 

SELECT  INPUT-FILE  ASSIGN  TO  IF. 

SELECT  PRINT-FILE  ASSIGN  TO  PR  FOR  LISTING. 
I -0- CONTROL. 

APPLY  STANDARD  ON  INPUT-FILE,  PRINT-FILE. 
DATA  DIVISION. 

FILE  SECTION. 

FD  INPUT-FILE 


LABEL  RECORDS  ARE  STANDARD 
DATA  RECORDS  ARE  INPJT-TRAN,  INPUT-DATA. 
01  I NPUT- TRAN  . 


02  TRAN- TYPE 

PICTURE 

X ( 6)  . 

02  FILLER 

PICTURE 

X ( 73)  . 

01 

INPUT-DATA 

PICTURE 

X (84)  . 

F D 

PRINT-FILE 

LABEL  RECORDS  ARE  STANDARD 

DATA  RECORD 

IS  PRINT 

-LINE  . 

01 

PRINT-LINE. 

02  PRT-1 

PICTURE 

X ( 10)  . 

02  PRT-2 

PICTURE 

X (22)  . 

02  PRT-3 

PICTURE 

X ( 10)  . 

02  PftT-4 

PICTURE 

X ( 34  ) . 

WORK ING-STORAGE 

SECTION. 

77 

D E S C - F C 

PICTURE 

XX  VALUE 

77 

D ATA-F  C 

PICTURE 

X X . 

77 

TRAN-K  E Y-WORD 

PICTURE 

X (6)  . 

33  ADD-REC 

VALUE  " 

ADO". 

33  CHG-REC 

VALUE  " 

CHANGE". 

63  DEL-REC 

VALUE  " 

DELETE". 

77 

E RROR- CODE 

PICTURE 

X ( 6)  . 

83  OKAY 

VALUE  " 

000000". 

83  ISP-KEY-MISSING  VALUE  ”000X02". 

83  DUPLICATE-ISP-KEY  VALUE  "000X07". 

Figure  A-l  (Cont.)  Job  to  Build,  Retrieve  from 
and  Update  an  Inverted  File 


000  02:, 
00002  3 
000023 
000U23 
000024 
0G0024 
000024 
000024 
000024 
000024 
000024 
000024 
000024 
000024 
000025 
000025 
00002  5 
00002  5 
0 00  02  5 
000025 
00002  5 
000025 
000025 
000025 
000026 
000026 
000026 
000026 
000026 
000026 
000026 
000026 
000026 
000026 
000027 
000027 
000027 
000027 
000027 
000027 
000027 
00002  7 
00002  7 
000027 
000023 
00002b 
00002b 
00C02L 
000026 
000026 
00002b 
00002  o 
0 00  02  3 
00002c 
00002  > 
00002  9 
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USERID  OPNSUTIL 


UNCLASSIFIED 


( 

DATE 

09-16-77 

UN CLASS  IF  I t D 

r ( 

LST  = J 

02  09-16-77  09.919  LSTPU  - LISTING  OF  BCD  CAROS 

N U iM  d E R 

01 

OF 

33  INVAL  I O-REC-TYPE  VALUE  ,'0CQV01,•. 

C 00  02  , 

( 

33  NON-UNI OUE-I NV-<EY  VALUE  "000V02". 

00002  , 

01  INV-RECORO. 

00002  9 

| 

02  ISP-KE Y-VALUE  PICTURE  9(6). 

000029 

c 

02  REC-TYPE  PICTURE  X. 

000029 

02  RE ST-OF-RECORO  PICTURE  X(?7). 

000  02  v 

PROCEDURE  DIVISION. 

000029 

r 

01Q- ST  ART. 

C00029 

OPEN  INPUT  INPUT-FILE  OUTPUT  PRINT-FILE. 

000Q3L 

\ 

CALL  INVUPD. 

0 0 0 0 3 C 

L 

C 

CALL  IOPEN  USING  INV-RECORD,  DATA-FC,  DESC- 

FC  . 

00003C 

MOVE  ” ******  " TO  PRT-1,  PRT-3. 

000030 

020-RE  A D-T  RANS . 

000030 

( 

READ  INPUT-FILE  AT  END  GO  TO  0 70- E N D - 0 F- RU N 

• 

000  03  (. 

MOVE  TRAN-TYPE  TO  TRAN -KEY-WORD. 

0 00  03  C 

READ  INPUT-FILE  At  END  GO  TO  0 70-END-0  F- RUN 

• 

000030 

f 

MOVE  INPUT-DATA  TO  INV-RECORD. 

00003  C 

K 

IF  ADD-REC  GO  TO  0 3 0- A D D- A- R E C OR D . 

000030 

IF  CHG-REC  GO  TO  04 0- C H AN GE - A- R E C OR D . 

000031 

r 

IF  DEL-REC  GO  TO  05 0- D E LE T E - A- RE C G R 0 . 

000031 

l c 

MOVE  TRAN - KEY  - n' ORD  TO  PKT  -4  . 

000031 

MOVE  "INVALID  TRANSACTION"  TO  PRT-2. 

000031 

r ( 

GO  TO  060-PRINT-A-LINE. 

000031 

030- ADD-A-RECORD. 

000031 

CALL  ADDREC  USING  DATA-FC*  ERROR-CODE. 

000031 

c 

MOVE  "RECORD  ADDED"  TO  PRT-2. 

000031 

\ 

MOVE  INV-RECORD  TO  PRT-4. 

000031 

IF  DUPLICATE-ISP-KEY  MOVE  "DUPLICATE  ISP  KEY"  TO  PRT-2 

000031 

f 

IF  I NVAL I D-REC-T  YPE  MOVE  "INVALID  RECORD  TYPE" 

TO  PR  T- 

2. 

000032 

V. 

IF  NON-UNIQUE-INV-KEY  MOVE  "NON-UNIQUE  INV 

KEY" 

TO  PRT 

-2. 

000032 

GO  TO  060-PRINT-A-LINE. 

000032 

f 

040-CHANGE-A-RECORD. 

000032 

CALL  CHGREC  USING  DATA-FC,  ERROR-CODE. 

000032 

MOVE  "RECORD  CHANGED"  TO  PRT-2. 

000032 

(i 

MOVE  INV-RECORD  TO  PRT-4. 

000032 

IF  ISP-KEY-MISSING  MOVE  "ISP  KEY  NOT  FOUND" 

TO 

PRT-2  . 

000032 

IF  INVALID-REC-T YPE  MOVE  "INVALID  RECORD  TYPE" 

TO  PRT- 

2. 

000032 

( 

IF  NON-UNIQUE-INV-KEY  MOVE  "NON-UNIQUE  INV 

KEY” 

TO  PRT 

-2. 

000032 

GO  TO  060-PR1NT-A-L INE  . 

000033 

05Q-DELETE-A-RECORD. 

000033 

e 

CALL  DELREC  USING  DATA-FC,  ERROR-CODE. 

000033 

MOVE  "RECORD  DELETED"  TO  PRT-2. 

000033 

MOVE  INV-RECORD  TO  PRT-4. 

000033 

c 

IF  ISP-KEY-MISSING  MOVE  "ISP  KEY  NOT  FOUND" 

TO 

PRT-2. 

000033 

060-PRINT-A-LINE. 

000033 

WRITE  PRINT-LINE  AFTER  ADVANCING  2 LINES. 

000033 

c 

GO  TO  020-R EAD-TRANS. 

000033 

070-END -OF-RUN. 

000033 

CLOSE  INPUT-FILE,  PRINT-FILE. 

000034 

e 

CALL  I CLOSE  USING  DATA-FC. 

000034 

STOP  RUN. 

000034 

$ 

EXECUTE  DUMP 

000034 

/ 

$ 

LIMITS  ,30K,- 2< 

000034 

L 

$ 

SYSOUT  PR 

000034 

$ 

FILE  A A , X 1 S 

000034 

C 

$ 

FILE  G B , X 2 S 

000034 

USER  I ) 
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UNCLASSIFIED 

c 

A- 7 

Jl 

0 ^ 

III! - — ..  — _ . * 

( 


DATE 


09-1 6-? 7 


U JCLAiS  IF  I £ D 


( 

( 

( 

c 

c 

c 

c 

c 

( 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 


L S T 3 J 02  09-1  0-77  09.919  LSTRU 


s 

FILE 

CC  / X 3 S 

$ 

0 AT4 

DC 

I NVF  F 

INDEX 

FC  - AA 

I NVF  F 

l NO X 2 

F C = C C 

I NVF  F 

DATA 

F C = F 3 

$ 

D ATA 

IF 

ADD 

0004VD 1021 2TULSA  DINGO  090272 

ADD 

0 0041  01  0210 JACK  FAN  dllCri  0 71  372 

CHANGE 

0001  00  2020?  730 

DELE  TE 
000210 
DELETE 
000220 
DELETE 
000230 
DELETE 
000240 
ADD 

0001 73102Q4DEMRO  TUFF  071377 

ADD 

00  05  30X0213  MILNER  FACTOS  09127? 

ADD 

3005 70 1 021 43A CK RU S T u J AL 
CHANGE 
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Figure  A-2.  Output  from  Inverted  File  Build  Program 
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Figure  A- 2 (Cont.) 
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Figure  A-3.  Output  from  Inverted  File  Retrieval 
Program 
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Figure  A-4.  Output  from  Inverted  File  Update  Program 
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